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Editorial 


WHAT?? Another microcomputer magazine! 

This is the first edition of the ‘Liverpool Software 
Gazette’ Microdigital’s contribution to the already frigh¬ 
tening number of Microcomputer-related journals 
... But we like to think that we arc different. Our aim is 
to try and provide as much information as possible for 
the Microcomputer user—in a presentable formal for 
easy digestion. Something of a market gap exists in the 
need to furnish machine-specific information for users 
of personal systems. In our experience the average Mic¬ 
rocomputer owner rapidly attains a standard of compc- 
tance whereby the innumerable 'Beginning Basic 1 . 
'Hunt the Zombie, Snark' etc. articles of the monthly 


Dear Reader. 

WELCOME to our comic. For sometime now we have 
thought that a medium was needed for the interchange 
of knowledge between microcomputer users; this we 
hope is it. In our first issue we have attempted to set a 
high technical standard for content, this standard will be 
maintained in future issues. 

These future issues will be initially bi-monthly, and we 
hope, monthly. 

We welcome contributions, with correspondence and 
comment on all microcomputer Software related sub¬ 
jects; of course we will only know when we are going 
wrong when you tell us. 
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THE Sargon chess program, written by Dan and Kathc 
Spracklcn, is published in Z80 assembly language by the 
Hayden Book Company. The assembled program can be 
run on a Nascom 1 with a single 8K RAM card, although 
the assembly language version, using the patches 
detailed below but with all remarks deleted, occupies 
27K. Much of the program can be assembled as pub¬ 
lished, but all sections associated with input or output 
have to be adapted to the Nascom monitor routines. 

The listing was produced on the TDL macro¬ 
assembler, which docs not use the standard Z80 
mnemonics and although a conversion table is provided 
at the back of the book it is very easy to make mistakes 
until you become familiar with the TDL codes. Several 
points arc not covered in the table, for example the use 
of the full stop to denote the current address, and the 
assembler directives LOC, * .and .BYTE which replace 
ORG, EQU and DEFB. Thus if you want the program 
to run from £1000 to £3000 the beginning of the tables 
section translates to: 

STAST K|U ntft 

one sTurt*eag 

TRASS ntJ STASTTClgrf 

DIRECT W 4-TBAS* 

cm 9 . u. -it. -9 

The program can be assembled as published up to the 
end of subroutine BOOK: subroutines BITASN, ASN- 
TBI, VALMOV. ROYALT. DIVIDE. MLTPLY and 
EXECMV are also unchanged. The graphics data base, 
the four subroutines which tabulate the moves 
(TBPLCL. TBCPCL. TBPLMV and TBCPMV). and 
subroutines PGIFND and MATED arc omitted, which 
leaves fifteen sections of the program to be modified. 
The modifications include two patches to eliminate 
minor bugs from the original program. The first occurs if 
the computer is in stalemate; having scanned all its poss¬ 


ible moves it selects the best one—and moves into check. 
This is cured by the addition of CALL INCHK after the 
machine has made its move on the internal board; if it 
finds that it has moved into check it displays the last legal 
position and prints 'Stalemate*. 

The second bug appears when a board position has 
been set up for analysis. If ^ic variable MOVENO is 
equal to one the computer will make its 'book' opening 
(P-K4 or P-04) without testing its legality. As the relev¬ 
ant square may be occupied by any piece, or may be 
empty, this can result in very strange moves. This 
idiosyncrasy is eliminated by initialising MOVENO to 
two in subroutine ANALYS. 

A serious defect in the implementation of Sargon on a 
standard Nascom 1 Is the lack of graphics. The best can 
be done to display the board is to use characters £00 and 
£7F for white and black squares, and to represent the 
pieces by letters, upper case for white and lower case for 
black. Bits and P.C.s of Wakefield sell a graphics kit 
which uses a 2708 EPROM to provide Nascom with 64 
extra characters and their reverse-field equivalents. A 
set of chess pieces is one of the options available and it 
greatly improves the appearance of the display. 

The most interesting stage begins when the program is 
assembled and running—there are over 800 unused 
bytes between the end of subroutine BOOK and the 
start of the standard messages and this space can be used 
for your own modifications. For example, you can store 
up to ten board positions here so that once a position is 
set up for analysis it can be recalled as required. An 
alternative driver routine can be added to enable two 
human players to play each other, or you can have the 
computer play itself at different levels of look-ahead. A 
useful addition is an internal store for moves with a 
simple routine to display the moves at a controllable 
rate, which gives you a system of the Tolinka type. 

On a Nascom running at 2 Mhz typical response limes 
at the six possible look-ahead levels arc: l-10secs., 2-1 
min., 3-10 mins., 4-1 hour, 5-6 hours, 6-24 hours; how- 





ever, the tiroes can vary quite widely and the figures number of moves to checkmate; thus MTMSG is assem- 
given should only be taken as a rough guide. bled as 


Modifications to Sargon for Nascom 1 

Graphics Data Base Omitted. 

Standard Messages TTTLE3 and BLANKR are omit¬ 
ted. The move list messages (MVENUM, MVEMSG. 
0.0, 0.0.0. CKMSG, P.PEP), TITLE!. TITLE 2 and 
PCS arc unchanged. SPACE is a string of five space 
characters (£20) and TITLE4 consists of thirteen space 
characters. The remaining messages should he rewritten 
as subroutines by inserting RST 40 (£EF) in front of the 
message and DEFB 0. £C9 at the end; INVALI and 
INVAL2 can be written as a single message. MTPL is a 
label within MTMSG which is used for the entry of the 


DOTH /CHECKKATE IK / 

Eta an tyt, t». o. 


Yairables This section is unchanged; INDXER is 
longer needed for the graphics data base, but it is u 
for storing the current position of the move list. 

Macro Definitions The macros are omitted and 
space is used for the subroutine which erases 
machine prompts and the subroutines which print 
move list. 
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The PET. according to COMPUTING (3 August 1979). 
is now the U.K.'s hcst selling microcomputer system, 
with over 10.000 installed. This section of "The Liver¬ 
pool Software Gazette' is devoted entirely to the PET. 
and I hope that everyone with access to a PET who reads 
this will try out the hints, routine or programs in it. 
correct any mistakes that may have crept in. make any 
suggestions and/or criticisms that they feel necessary, 
and most importantly of all contribute more hints, 
routines and programs. The section will not indude 
details of hardware unless they arc essential to the soft¬ 
ware. e.g. a music program using an amplifier circuit 
connected to the user port. 

Listing Conventions 

It would be nice for the section to contain only listings 
which have been produced by a PET. but with the pres¬ 
ent state of PET printers there are problems associated 
with this, since most programs will contain some graphic 
characters, if only the cursor control ones, so until 
proper listings can be generated the following conven¬ 
tion is proposed: 

(1) Cursor control characters arc handled by enclosing 
a 2 or 3 character description of the effect they 
produce within brackets, e.g. (els) for clear screen, 
(cd) for cursor down, (cu) for cursor up, (d) for 
cursor left, (cr) for cursor right, (hmc) for cursor 
home, (rvs) for reverse field on. (off) for reverse 
field off. This has the advantage that if a listing is not 
available a normal typewriter can produce a copy, 
and that it is easier to understand than possibly a 
true listing would be. 

(2) Any other graphic character is dealt within a similar 
way, by enclosing the letter whose key is pressed 
together with shift to get the graphic within brack¬ 
ets. Thus (ASZX) represents the graphic character 
string consisting of the 4 playing card suits. Where 
confusion might arise, e.g. in things as ‘Yes (Y) or 
No (N)' the characters could be replaced with 


square brackets. Normal lower case characters can 
simply be reproduced as lower case characters, tak¬ 
ing care not to enclose them between brackets if 
possible. 

Anyone with a better convention should get in touch 
with me and it can be presented for discussion in the 
section. 

As examples of the convention here arc a couple of 
useful routines which can help remove the problem of 
the PET breaking out of the program when a carriage 
return alone is entered as the response to an INPUT 
statement. 

10 Wit "Snur ■ m-twrf «■)(»>.(el)(emelV>|A/ 

» IT A/."." HITT rv:MT «<e.)”;sOOT 10 
30 A>VAi<Jkjhi»' a sow eanura t>t wm r—rar 

Note that lower case characters not enclosed within 
brackets are simply treated as lower case characters. If a 
carriage return is entered as the only response to the 
question, then AS has the value".", which is detected by 
line 20, and results in the question being asked again. 
Line 20 could be replaced by a line which accepted 
AS "." as implying that a default value was to be 
assigned to A. 

Another alternative to the simple INPUT statement, 
and one which is useful if the string to be input must 
contain commas, semi-colons etc. is to simulate the 
INPUT statement with a GET statement. For users of 
PETs with the old ROMs the following lines provide an 
INPUT-likc statement which will not break out of the 
program when return alone is pressed. 



(Note that the first character in the PRINT string in 
line 20 is a space). There is now a choice as to what to do 
with AS. A PRINT AS;:GOTO 10' will result in what¬ 
ever is typed being printed on the screen (even the delete 
key will delete the last character printed), but the prog- 
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ram is of course in an endless loop. The best thing is to 
decide on a terminator character, c.g. the return key, 
and test for it. The routine now becomes: 



A better version of line 30 which removes the need for 
the second print is: 

JO mrrr»gj,ir ixitf) «13 —«-■ *. 

This docs still not get over the problem of remember¬ 
ing what has been typed in. To do this insert the follow- 

5 t/»""iior rrr 1/ fror t.t** imn) mi 

and change the THEN 10 in line 30 toLS = LS ♦ AS 
:GOTO 10. When the program exits to line 40 LS will 
contain the characters which have been typed in. You 
can input up to 255 characters this way, the characters 
including commas, semi-colons, trailing spaces etc. One 
peculiarity of the routine as it stands is that while the 
delete key will result in the character on the screen being 
deleted the character in the string will not have been 
deleted, and more embarrassingly a delete character will 
have been added to LS. To get round this we need to 
detect the delete key (ASC(”(dcl)") = 20). and chop off 
the last character in LS using the LEFTS function. 
Perhaps someone would like to take up the challenge of 
producing an uncrashahlc input routine using the ideas 
above, or any others in fact, 'the routine should return 
either 1, 2 or 3 in a variable TYPE, depending on 
whether the input was a number, a string or the default, 
i.c. simply return. An ‘ON TYPE GOTO (or GOSUB)‘ 
could then be used to perform the appropriate action. 
The number (if it was one) should be returned in N. the 
siring (if it was one) is S$. and N set to O. S$ set to ““ if 
the default input was performed. It should take care of 
the delete key and ignore all other control characters, 
e.g. (cu). (els) etc. It may be slow, but input will be slow 
anway. so it should not make too much difference. 

The POKEs in the statements above are necessary to 
get the cursor to flash, without any lengthy timing loops. 
For the new ROMs the POKE address is 167, but apart 
from that everything else should be the same. 

Interrupts 

An interrupt is generated in the 6502 processor of the 
PET every sixtieth of a second, which (as long as the 
interrupts arc enabled.) results in the 6502 (at the end of 
its current machine code instruction), saving the prog¬ 
ram counter (which will contain the information neces¬ 
sary for it to continue at the correct place when the 
interrupt is over) and the status of the processor (which 
contains the information necessary for it to continue 
doing the correct thing when the interrupt is over) on the 


stack. It then jumps to an interrupt routine whose 
address is at the top of the ROMs. S90. S91 (new 
ROMs). These addresses are in the third and first pages 
of RAM. and hence can be altered by the user, allowing 
a non-standard routine to gain control of the 6502 every 
1/60 second. 

Notes: All numbers prccccdcd by a dollar sign ‘S', arc 
in hexadecimal, or base 16. An indirect JMP 
results in the processor JMPing to the address 
which is contained in the 2 bytes whose first 
address is contained in the rest of the JMP 
instruction. For example, the instruction JMP 
($0219), (In machine cade 6C 19 02) would 
result in the processor taking its next instruction 
from (i.e. JMPing to) the address contained in 
locations $0219, $021A (low order byte of the 
address first). If $0219 contains $3A. and 
$021A $03. then a JMP ($0219) equivalent to a 
JMP S033A. 

Given that a user routine can gain control after an 
interrupt what use is it? The main use is to implement a 
routine which you would like to be executed continu¬ 
ously, i.c. when a BASIC program is running, when the 
system is waiting for input and so on. and to be executed 
in this way without you having to call it explicitly. Exam¬ 
ples might be a continuous memory tester, which cycles 
through all the memory again and again reporting any 
faults it detects, but being in effect transparent to the 
user until a fault is detected. A data gathering routine 
could be implemented in this way, constantly scanning 
the user port say. reading a value of some quantity from 
it, and storing it in some agreed location. A BASIC 
program could then access this information when it was 
ready, without having to explicitly trigger the reading 
routine. One might even implement a form of time shar¬ 
ing. where pages 0-3 of the memory would be swapped 
at regular inters als. the pointers in the swapped-in pages 
pointing to a different BASIC program from the poin¬ 
ters in the swapped-out pages. The users are varied, the 
PET itself using it to update the jiffy clock (which is 
where 1 jiffy* I 60 second comes from) and to scan the 
keyboard for any keys being pressed. 

The example shown here will enable you to alter the 
type of cursor display that you get from your PET. If you 
arc tired of the same boring old cursor then read on. The 
key to the example is that location $0225 (old ROMs) or 
$A8 (new ROMs) contains a number which is 
decremented every time the intcrrupl routine is called 
(i.e. every sixtieth of a second). If decrementing this 
number results in it reaching zero then the current state 
of the character under the cursor (this state being either 
reverse field or normal) is flipped, and the contents of 
location $0225 ($A8) set to 20. Thus every 20 interrupts 
the character changes from reverse field to normal, or 
vice versa, and the timing for the cursor is 1/3 of a second 
between flips. 

To produce a grey cursor we can gain control of the 
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6502 every interrupt, set the cursor timing control loca¬ 
tion to 1, and then continue with the interrupt as normal. 
Every time the interrupt is called results in the number 
being decremented to zero, hence the character under 
the cursor changes state, and we get the appearance of a 
grey cursor, actually one changing state every 1/60 sec¬ 
ond. 

The alternative is to make a cursor that never changes 
state, which gives the appearance of being non-existent. 
This simply involves setting the contents of the cursor 
timing control location to 2 (or any number different 
from 1). The interrupt routine can never decrement 2 by 
I and get to zero, hence the state of the cursor character 
never changes. 

To produce either of these effects we must first write a 
routine that changes the timing location to 1 (or 2) and 
then continues with the interrupt. To do this we must 
know the address that is in locations S0219, S021A 
($90. $91). For the old ROMs this is SE685. i.e. $85 in 
location $0219 and $E6 in location $021A. for the new 
ROMs $E62E. 

The second job is to write a routine that will change 
first the address in $0219. S021A f$90, $91) to that of 
the initial location of the routine. Finally we must have a 
routine which restores the original interrupt addresses 
otherwise tape input/output will not work properly (we 
will use a version of the second routine to do this). 

Below is a BASIC program which should do the job 
properly, and underneath that is the assembly language 
program which has been POKEd into the second cas¬ 
sette buffer after the BASIC program has been run. 

BASIC ROUTINE TO AFTER STATE OF CURSOR 



To restore the original interrupt vector execute: 


eaa.ijjuotz 'jj.zjoirrxt’z') 


All the above is for the old ROMs. To adapt this for 
the new ROMs make the following changes: 


J0 TOR I.W TO KkJ 


Wo M7» Vo!l«9,/«,155,W<*,y9 t j,ijj,W5 t »l , ,9r 
150 UTt 


and to restore the original interrupts addresses 
execute: 


The assembly language versions of the routines fol- 



If the interrupts were not disabled it would be poss¬ 
ible. but unlikely, that the first byte of the interrupt 
routine address could have been altered, but not the 
second one. when an interrupt occurs, leading in all 
probability to a crash. 

^ Kill liip atat. trary laumqit 

03>9 *0 ZJ 0tm JKVZ5 Curaar Maine conal.m location 
0J*C SC «J & JVP JtBtt? continue vith lnt.rn.pt 

The routines for the new ROMs are slightly different, 
since the interrupt routine address is kept in page zero of 
the PET'S RAM, together with the cursor timing con¬ 
stant, hence the instructions at locations $033D, $0342 
and $0349 in the above version can be shortened by one 
byte each, using the page zero addressing mode of the 
6502 processor. 


Pascal and the PET 

It is difficult to read any computer magazine or paper, 
whether professionally or personally orientated, without 
becoming aware of a computer programming language 
called Pascal. Developed in the late sixties and early 
seventies by Professor Niktaus Wirth, Pascal is a block 
structured language very much like ALGOL-60 or -68. 
with some features not found in either. It is especially 
suitable for structured programming, having all the con¬ 
trol structures built into the language for the processes of 
SEOUENCE. SELECTION and ITERATION, the 
three basic building blocks for any structured program. 
Whereas in most other high-level languages one is 
restricted as to the type of data the language will handle, 
(c.g. BASIC with just real and integer types). Pascal 
allows the creation of new data types, which fit the 
problem to be solved, rather than fitting the problem to 
the language. For example, if a selection of program¬ 
ming was needed to sum the number of hours worked in 
a week, we might, in BASIC, allocate a code of the 
following form: 1 MONDAY. 2 TUES¬ 
DAY.5 FRIDAY, and then perform the following 

loop 
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Pascal allows the following types of construction: 



Obviously you have to tell the computer more to start 
off with (since in Pascal all variables must be defined 
before they arc used), but once that is done, (and it is a 
useful exercise even in languages which do not demand 
it) the program you write almost doeuments itself, espe¬ 
cially as you can use long (at least 8 characters) variable 
names. This facility of being able to define the way the 
data for a program is represented is seen by Wirth to be 
as important as the choice of algorithm for the program 
(one of his books is titled 'Algorithms t Data Struc¬ 
tures = Programs' Prentice-Hall 1976). 

This article docs not aim to teach Pascal, since there 
are enough books around which will do that easily, but 
rather to let PET users know how they can go about 
gaining some experience of Pascal. What follows applies 
in fact to almost any system with BASIC, although the 
particular implementation described is for a PET. 

The September to November 1978 issues of BYTE 
contained a series on how to develop a 'Tiny' Pascal 
compiler, interpreter and translator (bearing a strong 
rcscmblcnce to a system described by Wirth in 
Algorithms + Data Structures = Programs, for a lan¬ 
guage called PLO), The 'Tiny' Pascal referred to is a 
subset of Pascal, with for example only integer variables 
and constants, and only single dimension arrays, again of 
integers. However, it docs support procedures and func¬ 
tions, (even recursive procedures), and provides an 
excellent way for someone to get acquainted with Pascal. 

The compiler, which is written in BASIC, takes a 
program written in the subset of Pascal chosen and com¬ 
plies it into an intermediate form known as P-codc (a 
form of machine code for a hypothetical processor). The 
interpreter can then interpret these P-codcs in the same 
way as a BASIC interpreter interprets a BASIC prog¬ 
ram, providing single step, breakpoint and register 

Stop Press- 

THE PET WAKES UP 

A tip from Jim Butterfield for all Pet users and owners 
with new Roms: 

If your machine crashes, either from BASIC or 
machine code the following hardwarc/softwarc techni¬ 
que will reawaken it, with very little damage to memory, 
e.g. a Basic program should still be usable. 

1. Ground the diagnostic sense pin on the user port 
(pin S) 

2. Ground the Reset Pin on the memory expansion 


examine facilities. When the program is working it can 
be translated from the P-code into the machine code of 
the processor it is to be run on—which will not only 
make it run faster but will probably result in its taking up 
less memory. 

The original P-compilcr (October 1978) was written 
in North Star BASIC, but is fairly easy to convert to PET 
BASIC (North Star BASIC makes the test in a FOR- 
NEXT before it performs the loop, hence FOR I = 1 TO 
0:PRINT:NEXT I won't do a thing. One of the prob¬ 
lems associated with the translation). The P-code 
interpreter (September 1978) was written in ‘Tiny’ 
Pascal, but is easy to translate into PET BASIC, and 
finally the P-codc translator was written in BASIC for an 
8080 microprocessor, hence will need completely 
rewriting, together with the run-time package which 
supports the translated P-codc. 

The compiler was designed as a bootstrap compiler by 
the authors (Kin Man Chung and Herbert Yuen) of the 
articles, so that when it was working a compiler for a 
more expanded subset of Pascal could be implemented 
using a 'Tiny' Pascal version of the bootstrap compiler. 
Even if this next step is not taken, the system remains an 
excellent way to get to know what a compiler docs, and 
how it docs it, and also an excellent way to get to know 
Pascal. 

If sufficient interest is shown (please make your views 
felt, either to Microdigital or myself), and questions of 
copyright can be sorted out. it might be possible to 
publish the complete set of listings from the BYTE 
articles in this section. A version of the system is at 
present running on an 8K PET with 24K extra memory 
and a Compu. Think dual mini-floppy disk drive, 
although only using one of the drives. An editor is used 
to prepare the program in a file on the disk, the compiler 
reads the source text from the file, and the interpreter 
interprets the compiled P-codc, very slowly (an inter¬ 
preted program interpreting something is bound to be 
slow). The next stage is to rewrite the P-codc interpreter 
in machine code for the PET. and possibly even develop 
the run-time package and translator for the 6502. 


bus (pin 22) 

3. The Pet should awaken in the monitor, but the stack 
pointer value will be 01. 

4. If you wish to re-enter Basic enter 'X (Return)', 
which should give READY - . Then enter 'CLR 
(Return)'. The Pet should now be usable 

5. If you wish to stay in the monitor, enter(Return)' 
which should give ?. Then cursor up and alter the SP 
value to FA and press (Return). 
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THIS is, I hope, the first of a regular series in which I 
shall look at various programming topics of interest to 
the micro-computer owner. The object is to cover many 
of the techniques used to case the programming of a 
small computer by discussing both programming 
methods in general, and suitable software products as 
they appear on the British market. I do not intend to 
dwell too much on the topic of computer languages as. in 
general, it is possible to apply most modern program¬ 
ming techniques when writing in many computer lan¬ 
guages. The choice of language should be determined by 
which provides the facilities required to solve the prob¬ 
lem in hand.'not my the methods used. It must be admit¬ 
ted, though, that by choosing the right programming 
language the application of systematic programming 
techniques is greatly simplified. 

This first article will look at the use of one very com¬ 
mon program, an assembler. Your microcomputer most 
likely came with facilities to run a high-level language, 
probably BASIC, and a simple monitor which allows 
you to load and execute programs written in machine 
code. These arc fine to get you started. You can load an 
execute BASIC using the monitor (you do this on any 
machine, even if the monitor is hidden from view). Most 
programs you will write, or buy, will be written in 
BASIC, but on occasion you will find that BASIC docs 
not give you the control over the microcomputer you 

A typical case arc subroutines to allow your mic¬ 
rocomputer to communicate with other devices, such as 
printers, paper tape readers, or even other computers. If 
you arc very lucky your microcomputer’s monitor will 
allow you to list a section of memory in a pseudo- 
assembler format. This is normally called dis-asscmbly. 
and allows you to look at sections of program, already 
stored in the computer, in a more digestablc form than 
the straight hexadecimal printout usually provided. It is 
possible that the monitor on your computer will even 
allow you to enter programs in the same form. The use of 


mnemonics, rather than the hexadecimal operation 
codes actually understood by the micro-computer, eases 
the programmer's lot considerably. 

Mini-assemblers, such as these, arc fine if you wish to 
write short subroutines to interface with BASIC prog¬ 
rams. They are not very useful if you wish to write a 
reasonably long program which has to handle a number 
of different situations. The mini-assembler requires all 
data and addresses to be entered as hexadecimal num¬ 
bers, so that, if. say, you wish to add an instruction you 
forgot, you have to rewrite a large section of the prog¬ 
ram. Deleting instructions is easier since they can be 
replaced by no-operations. 

If the program is longer than a few dozen bytes, or 
rather complex, it is far easier to use a full symbolic 
assembler. The program is entered into the computer as 
a text file, using an editor, and can be stored cither in the 
computer's main memory, or on floppy disc, or cassette. 
The editor is a program which allows the programmer to 
manipulate a file containing text by adding, deleting or 
changing its contents. Editors are very complex prog¬ 
rams, which must be well written so that they protect the 
contents of valuable files from accidental corruption. I 
intend to discuss editors more fully in a later article, as 
they are an important software tool, and should be avail¬ 
able on any suitable system. 

The assembler normally does its work in two stages, 
called passes, the first creating a symbol table in which 
the values of all the symbols used arc stored, and the 
second, where the code is actually generated. It is usual 
for a listing to be generated giving the code produced 
alongside the assembler statements originally entered. 
Since symbolic labels are used to refer to addresses 
adding, or deleting code is much simpler as the source 
file can be edited, and the assembler will recalculate 
them. By giving the various constants and data storage 
addresses used in the program meaningful names and by 
adding plenty of sensible comments the program text 
can be made quite readable. It should be obvious what 
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the program segment in example 2 b attempting to 
achieve, whilst when the same program is presented in 
mini-assembler format (example 1) it is far from clear. 

Although a symbolic assembler is required to do a lot 
more than a mini-assembler it is a great help when 
developing even moderate sized programs since it frees 
you from calculating addresses, which is always lime 
consuming, and, particularly in the case of forward 
references, sometimes impossible. 

These articles describe some of the work I have done 
in connection with a research project involving the study 
of programming methods for microcomputers. I would 
like to hear from anyone interested in this area, so that 
their views may be included in later articles. Program¬ 
ming techniques have, so far been neglected by mic¬ 
rocomputer owners, who have cither been too busy get¬ 
ting hardware to work, or have had an immediate prob¬ 
lem to solve. Suppliers arc naturally concerned to prom¬ 
ote the advantages of the machines they provide, and 
have neglected the ready market for software. In the 
next few months I think thb will change. Consideration 
should be given, when purchasing a microcomputer to 
the availability of software and other material, as these 
will extend the usefulness of the machine as time goes 

Next month I shall look at compilers and interpreters 
and show why both arc invaluable to the microcomputer 


JCOl uwgcoci 

VO 0 + 0 ! 

■4 fjoo 
Ltw Jooco 
ceu e/so 
xre 

Example 2. The same short subroutine entered using a 
full symbolic assembler. 

: actrrus ft hxjo t ohjwctbi uo lsav* it 

1 is iks a tsasnau 

JTiTttt Ufl toon 

roar a.o fcooo 

mac b.v 

tuan sw Iso 


0 * (yx> i JtJJO A5O0EB. 



Example I. A short subroutine entered using a mini¬ 
assembler. 


NewforNascoml 

from Microdigital 


Put your Nascom to work with the new 
Microdigital Relay Board. 

' 16 Raed Relays, totally isolated 200 mA. 

SO V.D.C. S W max aach. Operate and ralaaaa 
Ume 1 mi (Including bounce). 




■ Robots, Central Healing Systems. 


with normal Nascom operation, all Interupt and 
D.MA Daisy Chain Links carried on. Oraws 
only 2S0mA tram eachotthe -Send -1JV Ralls. 
' All components supplied, ell IC's socketed. 


PRICE £49.95 plua VA.T. (Total Cost £57.44) 
Access, Bardaycard. Mall Order. 

<5^ 



/MICRODIGIML 

25 BrunMwkch Str~L Liverpool L2 OPJ 


051 227 2535 (AM ottwr Of**.) 












5: A high level language in 3/4 K! 

M5 SYSTEM—AN INTERPRETER FOR THE NASCOM ONE 



The M5 interpreter was designed for implementation on small 8 bit microcomputers and the Nascom one 
standard system was an ideal choke because of its popularity and use of a fairly powerful processor (the 
Z80). 

With only about 940 bytes available to the user, the language had to be compact enough to write decent 
programs in a small space, and also have a small interpreter to leave the maximum amount of spare 
memory. A simple editor was almost essential if programs of over about 50 bytes were to be written and 
debugged easily, and this required about 100 bytes. 

The editor, interpreter and command mode arc closely linked—for example, program variables are 
maintained over edits, and resets, and the editor will set up its cursor to inform the user where an error 
occured. 

A compact M5 program can be difficult to follow initially, so error routines whkh give the exact location 
and type of a run-time error are included, despite the penalty in RAM usage. (Execution speed is 
unaffected by error checking). 

MS is a very fast interpreter, although loops arc not as fast as in machine code because each loop involves 
a small search. A well written M5 program will carry out general calculations at about 1/3-1/S of the speed 
of machine code. (MS programs arc usually much faster to write and debug of course!) 

The user may write programs of about 230 bytes in length—quite large m M5. Overlarge programs may 
cause trouble when entered, but the most likely indication of an overflow is a lot of garbage appearing on 
the end of the program when it is listed. 


0.2 Introduction 

The MS system is entered by typing EC60 when MS has been entered into user RAM. The prompt ’ MS 
should then appear at the bottom of the screen, indicating that the system is in the command mode. 
Commands which may be entered now are: 

I Input a new program and destroy the previous one. System responds with a newline and waits 
for the user to enter a program. Input is terminated by a semi-colon, which returns the 
user to the command made. 

L List the program currently in store and return to command mode. 


R Run the current program starting at the first symbol, after printing a newline. 

E Edit the current program, inserting the character pointer at the place the last instruction was 

excculed-or where an error was found. 

(See section on editor.) 

RS RESET the Nascom. This will cause a return to Nasbug. However, the current program and value 
of X will be maintained ready for typing EC60 to resume programming. RESET must 
also be used to star a looping program. 
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0.3 Initialisation 

When entering M5 for the first lime after loading it, it is best to initialise the user work area by entering 
and running a null program. This is done as follows: (Underlined characters arc typed by the system.) 

M5:lnput 

: (I.E. Terminate input after entering nothing!!!) 

M5:R (Null program simply results in a carriage return.) 

M5: (System is now initialised.) 

0.4 Other commands 

MS will respond with a new prompt to any unknown command letter. 

0.5 Errors on input 

A backspace will delete the last character only when in input mode. It may seem misleading if used to 
backspace up a line. (Try it and see!) 

Backspaces can be inserted into a string in the program by using the INSERT command in EDIT mode. 
Semicolons arc illegal characters inside an M5 program. 

Shift-Backspace is a legal character in strings. 

1.0 BASIC M5 LANGUAGE PRINCIPLES 
1.1.0 M5 Arithmetic 

The basic elements handled in standard M5 are 16 bit unsigned integers, which arc adequate for 
most games and simple simulation or number manipulation. Numbers arc in the range 0 - 65535 
(decimal) and are modulo 65536 so 65536 seems the same as zero to the language. 
Operators permitted in M5 are: 

• (multiply) / (divide) ♦ (add) - (subtract) # (-1) * (*l) 

the last two arc included for faster execution if required, and for compact programming of loop 
control. (Sec later). 

1.1.1 The Stack 

An important aspect of M5 which is quite powerful once it is understood, is its stack based 
(Reverse polish) expression analysis. This system requires no parentheses and it can be used to 
evaluate arbitrary expressions quickly. The M5 algebraic system is similar to that found on some 
calculators and the analogy with a calculator is used in these notes. 

1.1.2 The Current Value 

On a pocket calculator, the Idea of a current value is easy to understand as it appears on the display 
and is often called "x". In MS there Is also a current value (called "X”). and it is altered only in the 
following circumstances: 

1) If a number appears in the program (not in a string) x takes its value. 

2) On encountering an identifier A-7 x lakes the value stored there. 

3) On encountering a ? (not after • ) x lakes its value from the keyboard. 

4) After a diadic operator (/-♦•) x becomes the result. 

5) If x is incremented or decremented (using & or #). 

1.1.3 Variables 

As in most other languages, M$ has variables A-7 and a special one . 

One of these variables becomes current by simply quoting it in the peogram. 

(point 2 above). 

X may be stored in asvartable by simply using =k where k is a variable name 
If ■ 7 is used, the current value (x) is displayed as a decimal number on the screen. (This is how num¬ 
bers are output in M5). 

EXAMPLES (These are all legal M5 programs- Try if unsure!) 

(i) A What is in location A is now also iri x (the current value). 

(ii) ABC x takes on the values in A then B then C and keeps the value C. 
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(HQ 23 x becomes 23. 

(lv) 23A x becomes 23 . (hen x becomes A (1 1. the number in A). 

(v) 23 4$6 x becomes 23 and (hen x becomes 456. 

(vi) A‘B x becomes A . then this value is stored in B. 

(vii) A*B«OD x becomes A . then this value is put into B . C and D. 

(viii) A*? I>? x becomes A and this is displayed, then x becomes B and is displayed. 

(ix) “>A x what is in x (left from last program) is displayed and pul in A). 

N.B. If you want to check what is going on, put the characters: =? in your program and x at these 
points will be printed. 

For neatness and readability use: =? “ " which separates No’s by a space. 

E.G. 23-7V “ I 1 I 1 I =T’ will produce: 00023 11111 as output if run. 

1.1.4 Calculating 

When a comma is encountered in an M5 program, the value of x is put on the top of the stack¬ 
pushing down all other members. 

We can represent the stack diagramatically to show what happens. 

Imagine the MS program A.33..BA where initially A-l and B~2 

step: abcdefgh (could have run l=A2=3 before) 


and follow it step by step: 



So far, we have no means of removing items from the top of the slack. We do this by using 
operators such as ♦ / • - 


The operators work on x and y and put the result in x, removing y from the slack. 
Operators therefore do the following: 



Program A.B+=? Initially A= I B=2 

step: abedef 



Program to evaluate (2*3) ♦ (7-2) and display it. 

Program 2.3*. 12- + = 9U. add result of 2 .3* to 7,2- and display, 
step: abed c fghi j kl 



NOTE The operators # and & only affect x and are equivalent to .1-and .1+ (although faster and 
shorter). 

Imagine we want to store the result of multiplying N by M in A. 

In Basic this Is A=M*N 

But in MS this is M.N-A 














iiir- if £ 


ii, not following ». 
character. Usually th 


it encounters a LOAD TLe. a? in the 
A number is terminated by any non m 
number and the program will continue 
the number. 

EXAMPLE ?,?•«? will prompt for a number, then another and print the product. 

String print 

Any string of characters surrounded by quotes “"is printed to the display exactly as written- 
including newlines etc. 

e.g. “Input the number" 


N.B. A jump will find labels in a string so beware of using (in a string. 

A nicer version of the program above Is: 

“NUMBER" ?. "TIMES BY”?*" IS *’■? 

A newline is produced by a newline between quotes. 

Ixiops and jumps 

A way of repeating operations is almost essential in a programming language. In MS this is done by using 
using jumps and labels. 

A label is represented in M5 by in where n is any symbol which an be entered at the keyboard. 

A jump is represented by ikn w here n is a symbol which matches a label, and k is a 
condition code indicating what condition involving x or x and y must be true for the jump to 


Valid condition codes arc as follows: 

CONDITION CODE CHARACTERS: 

Character Jump occurs if: Comments: 


ae of x is 0 
te of x is not 0 
r (top 2 on stk) 


X looks like a nolcqual sign 
L stands for less than or equal 
C stands for greater than 


EXAMPLES of valid jump symbols arc 

>UA )NI <XJ )G< (Z. 


when a jump symbol is re 
a jump is made to the fin 


ited by K is tested and if it is found to be true, 
matching identifier symbol. 
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2.0 WRITING PROGRAMS 

M5 is a powerful language when all its features arc properly understood, but it can be a little confusing for 
the beginner. There is fortunately an easy way of generating programs which can be used until familiarity 
with MS is achieved. The method is to write the program in a more standard language and then translate 
into MS. While this method does not exploit the valuable 'cunent variable' feature of MS. it will yield 
workable programs which arc easier to follow in many ways. The program can then be optimised when it has 
started to work. 

EXAMPLE. A Program to print a table of squares from 1 to 30. 

BASIC MS 

10 PRINT “TABLE OF SQUARES" “TABLE OF SQUARES 

MN ”° 0»N 

30N«N*I (BN.I+-N 

40 PRINT N. N*N N=? “ " N,N*»? “ 


SO IF N - 20 GOTO 30 N.20)XB 

60 END )M 


NOTE: Newlines in output must be included between quotes in M5 programs. The numbers in MS arc not 
spaced on output, hence the space in the line equivalent to line 40. 

The MS produced will be completely sound and will run at about the same speed as the tiny Basic 
program. 

If the MS is optimised, keeping N in ”x" as much as possible and using the free layout and the & operator, 
the speed will be considerably faster, perhaps 4-5 times faster than a fast tiny basic. 

Optimised: 

“TABLE OF SQUARES 
“ 0“N (B NA*N«? “ ".-2” 

“N.20 )XB )M 


3.0 THE EDITOR 
3.0 Introduction 

The MS Editor is entered by typing E when in the command mode. 

The edit prompt of E: will appear when the editor is ready to accept input. 

The editor will show the point where the last instruction was executed when it is entered by positioning a 
cursor at this location. The cursor is a shaded in square which is denoted here by a — (underline). 

The cursor indicates the current position of the character pointer, and the character pointed at by the 
cursor appears at the top right of the screen. All manipulation of text is done relative to this cursor because 
there arc no line numbers in MS. 

The character indicating end of file in MS is a null character which appears as a box when it is pointed at. 

A hazard in the M5 interpreter is that the pointer can be moved into the actual MS Interpreter. A Rule 
must therefore be: DO NOT use any Delete or insert commands unless you can sec where the pointer is 
positioned. 


3.1 Commands 

To manipulate the text of a program, the user must be able to position the cursor in the required area and 
then operate on the text. Commands to move the pointer arc as follows: 

> Move cursor forward one place. 

S Move cursor backward one place. 

R Rewind U. move cursor to the start of the file. 

N Move the cursor to the start of the next lime (stop at end of prog.) 

These commands may be repeated and if followed by a newline, will result in a printout of the text with the 
cursor in its new position. 

EXAMPLE: You have typed in a program as follows: 


(A "HELLO THERE " N-? " IS N 

WHAT NUMBER DO YOU WANT'; etc 

And you want to move the cursor to the spelling error. 

Use: RN ic. tnovc to start, move down a line, move in 5 characters. 

Using a space instead of a newline will not print out the text but will carry out the actions and 
return the edit prompt. 





I* November '.979 

Once we have moved thrpfompn^Thci^^jinnoTiak^3ji»rwmtwniav^omnundsTfl 


D Remove (delete) the character pointed at by the cursor 

The cursor now points to the next character along. 

Innnn; Insert the string nnnn before the character pointer. 

The terminator is a ;• Cursor points to same character. 
EXAMPLE: Edit ABCDERTYIJKLMNOP to replace RTY by FCH 
ABCDEFRTYJ K LMNOP 


E:R Move pointer to start the along 7 characters (to Y ) 

ABCDEF TY1JKLMNOP Character R appears at top R.H. side of screen. 
E:D Delete current character. 

ABCDEF- Y1JKLMNOP T appears at lop right. 


E:DD Delete two more. 

ABCDEF-JKLMNOP 1 appears at top right. 
E:IGHI; Insert correct characters. 


ABCDEFGHI - KLMNOP string now correct- O still current character. 

When editing is complete, the command W a used to return to command mode. 

4.0 ERROR MESSAGES 

When a large program is written concisely in M5, errors may be difficult to detect so good errr diagnostics 


it runtime were included. 

If a syntax error occurs, c 
SYM FRR x 

10 ERR x 


J1D 


ERR 

ERR 


nc of the following messages will appear: 

The symbol x is not allowed in MS (except in a siring). 

The symbol x is not a valid identifier, and an attempt was mat 
a value into it. (e.g. “X occurred.) 

The label x was not found when a jump occurred to it. 

The symbol x occurred in a jump condition position and is no 
(one ofUANZXGEM I. 

The symbol x caused an error to occur. (Not one of above.) 


In addition to giving the error type, the editing cursor is set up to point at the faulty symbol, so when the 
editor is entered from the monitor to correct the error, the cursor is in the correct position for amendments. 
(N.B. in M6. JID errors are detected before the program starts to execute.) 


5.0 SAMPLE PROGRAMS IN M5 



Note that the main timing loop is at the beginning for higher speed. 
1750 is the timekeeping constant, make smaller to speed up clock. 
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Execute from 0C60. 
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HIRE your Microcomputer 
from Microdigital 


II you want to try out your ideal system 
before actually parting with the hard- 
earned cash Microdigital Hire may bo 
your answer 


The rangeof machinesavailableis wide 
a full support service provides technical 
back-up 

A selection of relevant Software is norm¬ 
ally included with the machine 


EVALUATION HIRE CHARGES 


Pel 2001-8 . 

Apple II/ITT 2020 
Apple II disc drive 

Colour T V . 

BSWTV . 

Pet 2nd Cassette . 
Trendcom pnnter 


DAY 

500 
1000 
4 00 
200 
100 
100 
200 


WEEK 

- 31 50 
63 00 
25 20 
12 6C 
6 30 
6 30 
12 60 


MONTH 

11200 
224 00 
8960 
44 80 
22 40 
1000 
44 80 


These prices are offset against the purchase 
of a machine providing that the purchase is 
within 1 month of the hire period, is paid for 
in cash a nd the total discount does not come 


to more than 10% of the recommended 
retail price Long term hire is based on a 
lower rate and does not have this offer 


LONG TERM HIRE CHARGES 


Pet 2001 8 . 

Apple II/in 2020. 
Apple II disc drive. 

Colour T V . 

B &W TV . 

Pet 2nd. Cassette .. 
Trencom pnnter... 


3 MONTHS 6 MONTHS 

•4 

450 00 
190 00 
100 00 
4000 
3000 
15000 


60000 
25000 
140 00 
55 00 
4000 
20000 


Long term hire charges include delivery 
insurance and maintainance payment is 
required three months in advance Hire 
charges will NOT be offset against 
purchase. 

Should a machine develop a fault whilst In 


the possession of the hirer extra time will be 
credited for the time that the machine was 
out of action Microdigital (Hire i Ltd takes no 
responsibility for any loss or damage 
caused by the tailureofthehuedmachineor 
it s penphera! equipment 


FULL TERMS & CONDITIONS OF HIRE AVAILABLE ON REQUEST 

DELIVERY — Short term hire machines are delivered tree ot charge it within the 
Merseyside area otherwise charged at cost Long term hire machines are delivered tree of 
charge throughout England and Wales elsewhere charged at cost 

# 4 * 

m IH _ 

Microdigital (Hire) Ltd.. 14 Castle Street, Liverpool L2 OTA Telephone: 051-227 2535 



















I’m Pi lot, fly me- 

D. St raker 


HOW would you like to teach your wife/girlfricnd • (sub¬ 
stitute bosYtcachcr if applicable—cd)' etc., to write 
programs in half an hour? Impossible? Not if it's 
Pilot—and it's no idiot language cither. It was started in 
1971. as a language to be used for CA1 (Computer 
Assisted Instruction) programming, and has, since then, 
grown both in the number of users—and the number of 
versions available. This account does not set out to set 
any standards or describe a complete language—it's 
intention is to whet the appetite of the programmer. If it 
looks o.k. to you. why not find out more, (or even add 
your own instructions), and write your own compiler/ 
interpreter? It's been done in Basic and assembler 
before, and would make an excellent introduction to 
writing your own language! 

Pilot is a text-oriented language, and hence the text 
gets a major share of the action. Instructions arc one or 
two letters, and are separated from the text by a colon 
and a space. The text also does not need annoying quotes 
around them. 

For example: 



These few lines illustrate well the heart of the lan¬ 
guage, and once understood, they may be used to write a 
complete program. Let's look at them one by one: 

(a) "LABE1.A—any line may be labelled by putting as 
asterisk in the first column (of course the label name 
must be unique within the program!) 6 letters is a 
common limit. 

(b) T:—the most important instruction of all. It means 
type, or text, and can be used to display virtually 
anything. 


(c) A:—Accept stops the program and waits for the 
user to input something. 

(d) M:—Match provides Pilot with its unique ability to 
accept a large assortment of input data. This state¬ 
ment will allow: no. not, terrible, rubbish, (also 
nothing, knotted, etc.). The exclamation mark sepa¬ 
rates the options, and each option is looked for, in 
the reply to the last A: statement, not as a separate 
word, but as a character string. In effect, a 'window' 
is passed over the reply, looking for matches with 
the options given. 

(e) TY:—This is not a new instruction, but the type of 
instruction with a conditioner in front of it. The text 
given is only displayed if the conditioner is true. The 
Y conditioner (yes) looks to sec if the last M: state¬ 
ment did indeed find a match, and allows the state¬ 
ment to be obeyed only if a match was found. 
Hence, in this example, if the reply was no, nothing, 
terrible, rubbish, etc., then the program will type: 

Tm sorry, I didn't quite hear that. 

Til ask the question again.' 

(0 JY:—Nothing to do with Jimmy Young, this is again 
an instruction with a conditioner. Jump is yes jumps 
to the label given if the last match was found, so this 
program jumps back to ask the initial question 
again, if an unfavourable reaction is given. 

(g) TN —Type is no is the opposite of TY:. hence in this 
example, if no match is found in the M: statement, 
the text is displayed: 

'll is rather splendid isn't it!' 

(h) J:—The unconditional jump cause a jump to the 
label specified, so this will jump to NEXTA. 

And that is all there is to it!—You now can go and 
write your own Pilot programs using these few instruc¬ 
tions. 

More instructions may be added, and a few more will 
now be described: 

Remarks may be added to aid clarity when reading the 
code. They are totally ignored when the program is 
running. The instruction is simply R:. followed by the 
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Subroutines may be included, and start with a label, 
and end at the flrst return instruction, E:. that is met. A 
subroutine is called by U:, followed by the label name at 
the start of the routine. At the end of a subroutine, 
program control is returned to the instruction after the 
U: that called the routine. 

Simple arithmetic may be done with the computer 
instruction. C:. where variables may be assigned values. 



These variables may be used in conditions, much as 
the Y or No shown earlier, so 


r U >)): Hallo 

will typo 'Hallo' only trill stmi tor than 3 


These instructions allow freater flexibility, and this 
last example illustrates their use. along with the use of 
string variables. The full extent of Pilot has still not been 
explored, but if you have found the idea exciting, go out 
and find more on it. and when you have got an 


implementation working, why not write an article for 
this journal about it? 

»: rooiUorinlulvory 

Tilt Old you r«*d it cat# fully enough? AAyvagr, 

It {I th your ***• 

It ThorM, ftl, no* mo tx* oonput* instruction? 

un! OCUBAO 1 



Ti for 'byo for noul 
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LOOK FOR THE LABEL! 


* Five screw case fixing and transport mechanism usmg 
precision stainless steel roller axles 

★ Two special graphite impregnated slip shields guide 
tape edges to prevem pack scramble and dispel 
residual static 


/MCRODIGI'ML LTD 

. 2S Brunswick St . Liverpool UOPJ. Tel: 051-230 070/ . 


*8885^ 

All your microcomputer requirements can be 
bought win confidence by man order from 
MICBODlGITAL one of me largest and longest 
established computer stores 

Most orders are despatched same day as 
receipt, it not a note explaining what the supply 
Situation is If we cannot supply within 30 days we 
will on request make an immediate cash refund 
Access and Barclaycard orders are welcome 
either in writing or Over the phone Your account 
will not be charged until the goods are despatched 
Official orders ot over £10 are also welcome 
With normal 30 days trade credit extended to bona 
tide commercial and government organisations 
If you do not have our brochures, write or 
phone today for free copies by return 
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Apple Pips 

A monthly selection of unclassifiablc routines, hints, 
comments etc., for the Apple. Contributions arc wel¬ 
come! 



PREAD (FBIE) is a subroutine in the Apple monitor 
which delays according to the value of the Apple's 
analogue arid inputs. 

Load x register with required input (|J-3) 
eg. the follow ing routine will produce tones of varying 
pitch by altering PADDLE fl. 

I 7 M A it* UK *000 | rot. t 

tm ft i: re /sr. trait i pesad 

X c# 5XA IC939 ; Toai4 E»«lnr 

9797 <C » 93 lira i lurt Over 


Decimal to Hex Conversion I Requires Applesoft in ROM) 

In Applesoft the & character causes an unconditional 
jump to S3F5. By vectoring to a suitable address and 
continuing we can extend the available repertoire of 
Applesoft functions indefinitely. 

For example the following routine will evaluate any 
arbitary Basic expression and return the answer in hex. 



Should the expression give a range error the routine 
gives ‘illegal quantity error*. If the expression is invalid 
'Syntax error*. 


Once entered the routine resides happily with any 
Basic program and is not erased by New. Load. Save, 
delete etc. (Re-booting the DOS does clobber it). 

To save on disk: 

«avc teemt. /i*ji*»._utr7 ^ 

Integer Basic to Applesoft Conversion 

This short routine for Disk II users will convert on 
integer basic program text to Applesoft. Note that it 
docs not correct for any syntax differences between the 
two languages. It is in Integer Basic. 

it a*." *i am cm Dionc rim* (m) 

39 input “paoeaxx imi ^title* 

79 POKE 76, PUX 397 I P0*I 77 
. P1IX 3*7 

*9 PRIST 0$ '•LOW ".TITLE* 

9* PXXMT 0*. "on* ",TITLE*|" . TEX" 
at PRIHT 09, "VXITX ".TITLE*; ".TEX" 

1 9 PRIHT 09, "CUBE ",TITLE»i" . TEX" 

1M PRIHT W, "EXEC ".TITLE*!" . TEX- 
11* EXD 












APPLES’ MINI-ASSEMBLER 
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TRYING to use the mini-assembler buried deep in 
Apples' firmware? Going crazy, typing every possible 
permutation of 'F666G" and watching the machine 
crash? Cursing the retailer who has evidently sold you a 
defective ROM? Do you, by any chance, have an 
Applesoft Card plugged into Slot gf ? When ROM 
Applesoft is selected, it resides in memory from 
DOOO.F7FF—thereby replacing Integer Basic, the 
mini-assembler, floating point, and Sweet 16 firmware 
in the memory map. 

So. to access these utilities use either— 

I) <reset> CO80 <retum> Turns Applesoft 
Card off. under 
Software Control 

F666G <retum> - Enter mini-assembler 

Or 

ii) < Switch Applesoft Card off> (Move switch down) 
<reset> 

F666G <retura> 


The assembler prompts with an Since it is a one- 
pass tiny assembler symbolic addressing is not 
supported —Syntax follows that of the Apple dis¬ 
assembler (MOS technology with minor differences): all 
numbers are assumed to be hex, therefore, use of the 
conventional dollar sign is unnecessary. Instructions that 
manipulate the accumulator have a blank in the operand 
field. Page zero references generate the correct two-byte 
instructions. When using relative branches, the destina¬ 
tion address is entered and the two's complement value 
calculated and inserted by the Apple. To actually enter 
the source line type:— 


<Start address:> <Source> {return? 

< Start address ? it optional, if omitted type a space 
before entering the line. Assembly will continue at 
the current address. 


The assembler echoes your source line with the rele¬ 
vant-hex bytes inserted. Should you make an error, the 
Apple refuses the instruction, sounds the bell, and prints 
an error pointing to the statement in question. Current 
address references ate unchanged. 

< $ Monitor Command ? allows the execution of 
monitor commands with return to the mini¬ 
assembler-useful for disassembling to see where you 
arc up to, or saving programs on tape. 


The First National Meeting of the l .K. Apple User’s 
Association. 

Dr. Martin Beer. 

The U.K. Apple Users' Association met for the first 
time, in London, on 25th September. This meeting was 
called to discuss the future organisation of the Associa¬ 
tion, to discuss and approve a proposed constitution and 
to elect officers for the forthcoming year. The Associa¬ 
tion has. so far, been sponsored by Dr. Tim Keen and 
Andy Witterick of Keen Computers Ltd. in Nottingham, 
whose not inconsiderable efforts have been rewarded 
with a founder membership of over eighty. 

Dr. Tim Keen took the chair at the start of the meet¬ 
ing, which immediately discussed the problems of servic¬ 
ing its widely spread and diverse membership. The meet¬ 
ing felt that member's interests would be best served by 
the establishment of Local Area Groups in various parts 
of the country, and. if necessary, of Special Interest 
Groups to cover particular subjects. The need was 
expressed immediately for an ITT Special Interest 
Group, to provide help and information to owners and 
users of that machine, it was anticipated that most mem¬ 
bers would wish to belong to their local group, but that 
special arrangements should be made for those members 
who because of distance, or any other reason, do not 
wish to join one. 

The new constitution w as then proposed and accepted 
with various minor amendments. The Association now 
has the following aims and objectives: 

a. to promote the exchange of ideas, personnel and 
management techniques, information and practical 
experiences between Apple and allied computer sys¬ 
tems. and between Users and Apple Computer Inc. as 
manufacturer and their suppliers, in order to increase 
the effectiveness of Apple computer systems. 

b. to enable Users to agree joint recommendations to 
Apple Computers Inc. for the development or 
improvement of Apple Computers Inc. products and 
services. 

The Association is to be run by an Executive Commit¬ 
tee of eight members which will meet regularity toorgan- 
ise the day-to-day running, and a Council, which will 
consist of the Executive Committee and representatives 
of the various groups, and meet at least twice a year to 
discuss policy issues. It is hoped, also to organise an 
annual Association meeting. Dr. Keen was elected the 
first Chairman, and Andy Witterick the first Secretary . 

Merseyside Apple Group 

We have already started an Apple Special Interest 
Group on Merseyside, as part of the Merseyside Mic¬ 
rocomputer Group. We meet regularity at 7.00 p.m on 
the third Thursday of every month at Riversdalc Col¬ 
lege. The main purpose of the local groups is to meet 
other users and to discuss ideas, projects, problems etc. 
in a friendly and informal atmosphere. We normally 
have several Apples available for members to demons¬ 
trate their programs, and try out the latest products. 
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Whilst in London 1 was able to try the new PASCAL 
system very briefly. I was most impressed with the 
facilities provided. Not only is a full PASCAL compiler 
and operating system provided, but also a very useful 

relocatable macro-assembler. The operating system con- 
sits of a scries of programs such as (he compiler, the 
editor, the assembler and the file handler which arc 
called in from disc when requested from the menu. This 
allows considerably more facilities to be provided than is 
possible with a fully resident system. A number of 
demonstration programs arc included with the system 
on a separate disc which show the power and versilility 
of the system. 

No doubt other programs will be written by users very 
soon. Since the turtle graphics works in the same way as 
an incremental plotter, by the programmer specifying 
the direction and length of the line, pattern and picture 
drawing are much easier. By booting the system with 
another disc the Apple reverts to running Integer and 


Uvwpool Software Gaftf Hovtmbtr 1979 


floating point BASIC and is fully compatible with your 
current system, so that all your programs can still be run 
without any hardware changes to the APPl.L. 

At first sight this is a very nicely organised and pack¬ 
aged system, which considerably increases the Apple's 
range and usefulness. 1 look forward to using the system 
seriously and to reviewing it in some detail at a later 
date. 

The address of the Association b 
The Secretary. 

U.K. Apple Users Association. 

5 The Poultrv. 

NOTTINGHAM. 

My address b: 

Dr. Martin Beer, 

Computer Laboratory. 

University of Liverpool. 

Tel. 051-709-6022. Ext 2967. 
































Lawrence Hardwick 


THIS programme plays the game of Bulls and Cows 


against the operator on an ACORN Microcomputer; 
although u<e is made of display and Iceyscan routines in 
the ACORN Monitor it is possible to adapt the prog¬ 
ramme for other 6502 based machines. 

The programme maybe entered into the ACORN 
memory using the monitor in the normal way, to store it 
on tape locations 0200 to 03CC must be saved, the 
programme is executed from the label BEGIN at 02CC. 

Subroutines 

The main programme calls several subroutines given 
at the start of the programme listing; 

MATCH — Calculates the number of Bulls and Cows 
that should be awarded for a comparison 
between two four-digit numbers. These 
numbers arc stored in page zero at 
NUMA and NUMB, and the result is 
returned in the accumulator. 

UNPACK —Takes the bottom twelve bits of the two 
bytes pointed to by register Y. and stores 
them three bits at a time in the location 
pointed to by X. U. at X. X I, X 2 and 
X 3. (This is used to prepare numbers 
for the MATCH routine). 

D1SRAN — Displays the current contents of the dis¬ 
play buffer using the Monitor scan routine 
in a single scan mode. Between each scan 
the routine cycles a pseudo random sequ¬ 
ence generator consisting of a fed-back 
shift register. This shift register stored at 
locations. RAN. RAN land RAN 2 is 
twenty-three bits long with feedback from 
bits twenty-two and seventeen. The cycle 
of numbers generated will repeat every 
eight million shifts so the numbers gener¬ 
ated in the bottom twelve bits of the regis¬ 
ter are fairly random. 

MSSAGE — Puts the message in the message table at 


the end of the programme, pointed to by 
X. into the display buffer. 

QOCTFE — Works much the same way as ODATFET 
in the ACORN Monitor, but fetches four 
octal numbers input from the keyboard 
and stores them in the packed form in the 
locations pointed to by the X register. 

OOOTD — Takes four octal digits in the packed form 
pointed to by X and puts their segment 
codes into the display buffer for the 
ACORN scan routine to display. 


Main Programme 

The method of the programme is described in the flow 
chart and by comments in the programme listing; the 
important part is NEWGU which tests to sec if the 
programme's attempt at a guess is consistent with the 
information it has about its previous guesses. If the guess 
is consistent it is displayed, if not. a new attempt is made. 
Although this algorithm is not particularly efficient it is 
quick to notice if its opponent has cheated. 

Playing Bulls and Cows 

After the programme has been entered the display 
will show: rEAdY 

—pressing any key will change the display to show 
four digits. The player now enters his first guess, the 
programme will only accept digits in the range 0 to 7 and 
subtracts eight from any other digits to bring it into this 
range. Any control key will terminate this entry which 
may be over-written until terminated. 

In response to the control key the display may under 
very rare circumstances show: 

YOU WIN 

—otherwise two more digits will appear. The first digit 
indicates the number of Bulls (correct digit, correct posi- 






34 


lion) and ihc second digit is the number of Cows (correct 
digit, incorrect position). 

Pressing any control key will now cause the computer 
to display a four digit number and two dashes; the 
number is the computers guess at the players secret 
number and the dashes arc a prompt for the player to 
provide the computer score which can now be entered as 
two digits. Bulls first again corrections may be over¬ 
written until the entry is terminated by pressing any 
control key. 

If four Bulls were scored the computer will respond 
rather obviously with the display: 

I WIN 

—otherwise the players previous guess will be dis¬ 


played and his next attempt can be entered and termi¬ 
nated as before. 

If the computer recognises that no number corres¬ 
ponds to the information that it has been given whether 
caused by an innocent oversight on the part of the player 
or by his hopeful dishonesty the computer will quite 
unequivocally display: 


CHEAT 

After any of these game-ending displays a further key 
depression will cause the computer to display its own 
secret number and one more key depression will cause 
READY to be displayed for the start of a new game. 
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MASTER ACORN 6502 Assembler Pase 01 


OOlOi 0200 

0020i 0200 

0030i 0200 
0040« 0200 
00501 0200 
0060s 0200 
0070s 0200 
0080s 0200 
0090. 0200 
0100s 0200 
0110s 0200 
0120s 0200 
0130s 0200 
0140s 0200 
0150s 0200 
0160s 0200 
0170s 0200 
0180s 0200 
0190s 0200 
0200s 0200 A9 00 
0210s 0202 A2 09 
0220s 0204 95 31 
0230s 0206 CA 
0240s 0207 10 FB 
0250s 0209 AO 03 
0260s 020B P9 29 00 
0270$ 020E D9 2D 00 
0280s 0211 DO 04 
0290s 0213 E6 31 
0300s 0215 10 11 
0310s 0217 AA 
0320s 0218 F6 33 
0330s 021A FO 02 
0340s 021C 10 02 
0350s 021E E6 32 
0360s 0220 B6 2D 
0370s 0222 D6 33 
0380s 0224 30 02 
0390s 0226 E6 32 
0400s 0228 68 
0410s 0229 10 EO 
0420s 022B A5 31 
0430s 022D OA 
0440s 022E OA 
0450s 022F OA 
0460s 0230 OA 
0470s 0231 05 32 
0480s 0233 60 
0490s 0234 B9 00 00 
0500s 0237 85 42 
0510s 0239 B9 01 00 
0520s 023C AO 04 
0530s 023E 85 43 
0540s 0240 29 07 
0550s 0242 95 00 
0560. 0244 A5 43 


MASTER 

KEY 

MESSPO 

RAN 

MYNO 

YGU 

NUMA 

NUMB 

BULLS 

COWS 

LIST 

MYGU 

STRT 

ANSWER 

GSEND 

CUNC 

TEMPA 

TEMPB 

STACK 

MATCH 

CLEAR 


CMPARE 


NOBULL 

COWCNT 
NOCOW 

NOCDWS 


UNPACK 


UNLOOP 


ORG 


LDA1M 

LDXIM 

STAAX 

DEX 

BPL 

LDYIM 

LDA-'V 

CMPAY 

BNE 

INC 

BPL 

TAX 

INCAX 

BEQ 

BPL 

INC 

LL'XA ' 

DECAX 

BMI 

INC 

DEV 

BPL 

LDA 

ASLA 

ASLA 

ASLA 

ASLA 

ORA 


*0200 

♦OOOD LAST KEY FROM MONITOR 
•0020 POINTER TO MESSAGES 
*0022 RANDOM NUMBERS HERE 
♦0025 HIDDEN ACORNS NUMBER 
*0027 mUMANS GUESS 
*0029 NUMBER TO BE MATCHED 
*002D NUMBER TO BE MATCHED WITH 
*0031 
*0032 

*0033 USED TO CALCULATE COWS 
*003B MY NEW GUESS 
*003D START OF GUESSES 
*003F ANSWER FROM PIRAN 
*0040 END OF GUESS STACK 
*0041 PRESENT GUESS ON STACK 
*0042 TWO TEMPORARY LOCATIONS FOR ROR 
*0043 
*0044 
*00 

*09 CLEAR BULLS.COWS 
BULLS AND LIST 

CLEAR 

*03 

NUMA DIGIT FROM NUMA 
NUMB IS IT A BULL 
NOBULL NO 
BULLS COUNT A BULL 
NOCOWS IT CANT BE A COW 
tS IT A COW THEN? 

LIST INCREMENT VIA DIGIT 
COWCNT IT IS A COW 
NOCOW IT IS NOT A COW 
rows COUNT A COW 
NUMB TRY OT-.ER WAY 
LIST DECREMENT VIA DICIT 
NOCOWS IT 15 NOT A COW 
COWS COUNT A COW 
NEXT DIGIT 
CMPARE ROUND AGAIN 
BULLI r.Ow ASSEMBLE ANSWER 


COWS 


RTS AND RETURN 

LDAAY *0000 PUT NUMBER 

STA TEMPA TO BE UNPACKED 

I.DAAY *0001 IN TEMPA 

LDYIM *04 <4 DIGITS TO UNPACK) 

STA TEMPB AND TEMPB 

AND11 *07 EXTRACT DIGIT 

STAZX *00 SAVE UNPACKFD FORM 

LDa " PR RL r ,»B LCwER BYTE 
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$ Acorn at Microdigital 



Acorn V.D.U. 












MAST 

0570 

0590 

0590 

0600 

0610 

0620 

0630 

0640 

0650 

0660 

0670 

0690 


"246 
0246 
0249 
024B 
024C 
024E 
024F 
0250 
02^1 
0253 
0254 
02^6 


0690 
0700 
07 10 


025© 

0259 

025D 


0720: 

0730: 

0740: 

0750: 

0760: 

0770: 

0780: 

0790: 

0800: 

0810: 

0820: 

"830: 

0840: 

0850: 

0860: 

0870: 

0880: 

0890: 

0900: 

0 * 10 : 

0920: 

0930: 

0940: 

0950: 

0960: 

0970: 

0980: 

0990: 

1000 : 

1010 : 

1020 : 

1030: 

1040: 

1050: 

1060: 

1070: 

1080: 

1090: 

1100 : 

1110 : 

1120 : 


025F 

0263 

0263 

0265 

0266 

026/ 

0269 

026B 

0260 

0270 

0272 

0273 

0275 

0276 

0277 

0278 

0279 

027B 

02/D 

0280 

0283 

0285 

0287 

0286 

028B 

028D 

0290 

0291 

0293 

029*» 

0297 

029A 

029C 

029E 

02A0 

02A2 

02A4 

02A5 

02A7 

02A9 

02AB 


ACORN 6502 

66 4: 

6A 

66 42 


6A 

©6 42 

6A 

F8 


HO FB 

60 

A9 IF 

85 OF 
20 OC ft 

49 IF 
DO 11 
A5 24 
29 42 
69 )E 


OA 

26 22 

26 23 
26 24 
4C 58 02 
90 01 
60 

A5 3F 


OA 

OA 

OA 

05 OD 
05 3F 
20 60 
4C 58 
A9 FF 

85 OE 

86 20 
AO 07 
B1 20 
99 10 


FE 

02 


00 


10 

60 

20 

20 

BO 

AO 

29 

16 

36 

88 

DO 

15 

95 

4C 


F8 

AE 02 
OC FE 
F 7 
03 
07 
01 
00 


F9 

01 

01 

94 


02 


Pa-s* 02 

FOR TE: : A 2 BYTE 3 BIT ROTATE 

RCRA 

POP TEMPA 
RORA 

ROR TEMPA 
RORA 

INX NEXT DIGIT 

DEY V IS A COUNT- R 

BM UNLOUP ROUND AGA 1%- 

RTS and RETl/W 

01 ©RAN IDA, - *11 OC*. I'J-.LF CCA.N 

STA7 *0E 

DESCAN "OR FF'. MONITOR ©CAN CALL 
FORIM *IF ::£Y’ 

BNL KEY: 0 YES 

’.DA AN -02 GENERATE RANDOM 

AND I *1 *41 NU"BERE .LX1 BIT IN 

AOCIM *:« BIT SIX OF ACC 

ASL" AND PUT IN CARRY 

ASLA 

ROL PAN NOW ROTATE THE BITS 

POL RAN -Cl ROUND THE 3 BYTES 

R01 RAN *02 

JMP OFSC -N A>JG 33CNC ACAIN 
KEYFO BCC IORE j GL 

RTS YES SO RETURN 

NORET LDA .-4.-3WE ■ ulN’T KEY St 

ASLA ASSEMBLE NEW ANSWER 

ASLA LAST DIGIT UP 4 BITS 

A.SI.A 
ASLA 

ORA KEY PUT IN NEW OIG T T 

STA ANSWER STORE IN ANSWER 
JSR *FE60 ACO M.1LAT0R TO 0! *P 

JMP DESCAN AMI ROUND AoAiN 
MS3ACE I.DAIM *FF MESSAGE TO DISP 

STAZ *0E SET SCAN MODE FOR QOCTFE 

STX MESSPO GET UP POINTER 
LDY1M *07 0 DIGITS TO FETCH 

MLOOP LDAIY MESSPO POST INDEX FETCH 

STAAY *0010 PUT IN DIS £ LAY BUFF 

DEY NFXT DIGIT 

BFL MLOOP ROUND AGAIN 
SIIBRET RTS OR RETURN 

QOCTFE JSR QOCTTD DISPLAY OLD 

JSR *FEOC MONITOR SCAN CALL 
BCS SUBRET CONTROL KEY RETURN 
LDYIM *03 3 BITS TO SHIFT 

ANDIM *07 KEYS RANGE 0-7 

SHIFT ASLZX *01 THIS IS THE 3 
ROLZX *00 BIT SHIFT 
DEY 

BNE SHIFT 

ORAZX *01 PUT NEW KEY IN 
STAZX *01 STORE NEW ENTRY 

JMP QOCTFE AND ROUND AGAIN 










MASTER 


ACORM 6502 Assembler ^aee 03 


1130i 02AE AO 04 
1140 : 02B0 H5 00 

1150i 0282 85 42 
1160: 02B4 B5 01 
1170: 0286 85 43 
1180: 02B8 29 07 
1190: 02RA 20 7A FE 
1200: 02BP A5 43 
1210: 0?l)F 66 42 
1220: 02C1 6A 
1230: 02C2 66 42 
1240: 02C4 6A 
1250: 02C5 66 42 
1260: 02C7 6A 
1270: 02C8 88 
1280: 02C<> DO LB 
1290: 02CB 60 
1300: 02CC A9 FF 
1310: 02CE 85 22 
1320: 02D0 A9 44 
1330: 02D2 85 *0 
1340: 02D4 A9 03 
1350: 0206 85 21 
1360: 02D8 A2 A/ 
1370: 020A 20 83 02 
1380: 02DD 20 54 02 
1390: 02E0 A5 23 
1400: 02E2 85 26 
1410: 02E4 A5 22 
1420: 02E6 29 OF 
1430: 02E8 85 25 
1440: 02EA A? C2 
1450: 02EC 20 83 02 
1460: 02EF A9 FF 
1470: 02F1 85 OE 
1480: 02F3 A2 27 
1490: 02F5 20 94 02 
1500: 02F8 A2 29 
1510: 02FA AO 25 
1520: 02FC 20 34 02 
1530: 02FF A2 2D 
1540: 0301 AO 27 
1550: 0303 20 34 02 
1560: 0306 20 00 02 
1570: 0309 C9 40 
1580: 030B DO 18 
1590: 030D A2 B4 
1600: 030F 20 83 02 
1610: 0312 20 54 02 
1620: 0315 A2 C2 
1630: 0317 20 83 02 
1640: 031A A2 25 
1650: 031C 20 AE 02 
1660: 031F 20 54 02 
1670: 0322 4C DO 02 
1690: 0325 20 60 FE 


QOCTTD LDYIM *04 4 OCTAL 

LDA7X *00 DIGITS TO DISPLAY 

STA TEMPA "SF TEMPA AND TEMPB 
LDA2X *01 

01SLOP STA TEMPB SAVE LOWER BYTE 
AND1M *07 MASK DIGIT 

JSR *FE7A DIGIT TO DISPLAY BUFr 
LDA TEMPB RELOAD LOWER BYTE 
ROR TEMPA NOW 3 BIT 2 BYTE 
RORA ROTATE 

ROR TEMPA 
RORA 

ROR TEMPA 
RORA 

DEY NEXT DIGIT 

BNE DISLOP AND ROUND AGAIN 
RTS OR RETURN 

BEGIN LDA1M *FF 
STA PAN 

START LDA M STACIi RESET STACK END 
STA GSEND 

LDA1M READY / SET MESS POINTER 
STA MFSSPO +01 
LDXIM REAL-v MESSAGE READY 
JSR MSSAGE 

JSR DISPAI ■ DISPLAY READY 

LDA RAN +01 PUT RANDOM NUMBER 

STA MYN3 +01 AS MY NUMBER 

LDA PAN 

ANL1 *0F 

STA MYNO 

YOUGO LDXIM BLANK TLEAR DISPLAY 
JSR MSSAGE 

LDA .11 *FF SET SCAN MODE 
STA2 *0E 

LDXIM YGU FETCH YOUR GUESS 
JSR QOCTFE 

LDXIM NUMA MY NUMBER TO NUMA 
LDYIM MYNO 
JSR UNPACK 

LDXIM NUMB YOUR NUMBER TO NUMB 
LDYIM YGU 
JSR UNPACK 

JSR MATCH AND COMPARE THEM 

CMPIM *40 FOUR BULLS I IT 

BNt NOWIN PHEW > ! 

LDXIM YOUWIN DRAT YOU 
ENDOUT JSR MSSAGE END OF GAME 

JSR DISRAN DISPLAY. MESSAGE 
LDXIM BLANK CLEAR DISPLAY 
JSR MSSAGE 

LDXIM MYNO DISPLAY MY NUMBER 
JSR QOCTTD 
JSR DISRAN 

JMP START READY TO PLAY AGAIN 

NOWIN JSR *FE60 MONITOR ACC TO DISPLAY 
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1700 

1710 

1720 

1730 

1740 

1750 

1760 

1770 

1780 

1790 

1800 

1810 

1820 

1830 

1840 

1850 

I860 

1870 

1880 

1890 

1900 

1910 

1920 

1930 

1940 

1950 

1960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2240 

2250 

2260 


032B A5 22 
032D 29 OF 
032F 85 3B 
0331 85 3D 
0333 A5 23 
0335 85 3C 
0337 85 3E 
0339 AO 3B 
033B A2 2D 
033D 20 34 02 
0340 AO 44 
0342 C4 40 
0344 84 41 
0346 FO 30 
0348 A2 29 
034A 20 34 02 
034D 20 00 02 
0350 A4 41 
0352 D9 02 00 
0355 DO 05 
0357 C8 
0358 C8 
0359 C8 
035A DO E6 
035C E6 3C 
035E DO 08 
0360 E6 3B 
0362 A5 3B 
0364 29 OF 
0366 85 3B 
0368 A5 3C 
036A C5 3E 
036C DO CB 
036E A5 3B 
0370 C5 3D 
0372 DO C5 
0374 A2 BC 
0376 DO 97 
0378 A5 3B 
037A 99 00 00 
037D A5 3C 
037F 99 01 00 
0382 A2 C4 
0384 20 83 02 
0387 A2 3B 
0389 20 AE 02 
038C 20 54 02 
038F A5 3F 
0391 C9 40 
0393 DO 05 
0395 A2 AD 
0397 4C OF 03 
039A A4 41 
039C 99 02 00 
039F C8 


JSR DISRAN 
LDA RAN 
AND1M *0F 
STA MYGU 
STA STRT 
LDA RAN 
STA MYCU 
STA STRT 
NEWCU LDYIM MYCU 
LDXIM NUMB 
JSR UNPACK 
LDYIM STACK 
NEWINF CPY GSEND 

STY GUNO 
BEQ FOUND 
LDXIM NUMA 
JSR UNPACK 
JSR MATCH 
LDY GUNO 
CMPAY *0002 
BNE NOGOOD 


I NY 

BNE NEWINF 

NOCOOD INC MYGU 
BNE NOTUP 
INC MYGU 
LDA MYGU 
ANDIM *0F 
STA MYCU 
NOTUP LDA MYGU 

CMP STRT 
BNE NEWCU 
LDA MYGU 
CMP STRT 
BNE NEWGU 
LDXIM CHEAT 
BNE ENDOUT 
FOUND LDA MYGU 
STAAY *0000 
LDA MYGU 
STAAY *0001 
LDXIM PROMPT 
JSR MSSAGE 
LDXIM MYGU 
JSR OOCTTD 
JSR DISRAN 
LDA ANSWER 
CMPIM *40 
BNE NOIWIN 
LDXIM IWIN 
JMP ENDOUT 
NOIWIN LDY CUNO 
STAAY *0002 
I NY 


DISPLAY BULLS/COWS 
RANDOM NUMBER IS MY GUESS 
AND REMEMBER WHERE WE 
START 


♦01 

♦01 

♦01 

MY NUMBER 
UNPACKED TO NUMB 

RESET GUESS POINTER 
END OF STACK? 

STORE CUESS POINTER 
YES STACK FINISHED 
STACKED GUESS 
UNPACKED TO NUMA 
COMPARE NEW ANSWER 
WITH OLD ANSWERS 

DOES NOT FIT 
NEXT STACK ENTRY 


TRY THIS ENTRY 
♦01 INCREMENT 
MY GUESS AS THE LAST 
ONE WAS NO GOOD 


♦01 IF WE COUNT 
♦01 ROUND TO THE START 
THEN SOMEBODY IS 
CHEATING OTHERWISE 
TRY THIS NEW GUESS 

YOU ROTTER 
END OF CAME 
PUT THIS GOOD 
ON THE STACK 
♦01 


"..“TO DISP 

MY GUESS TO DISPLAY 

USE DISRAN TO GET ANSWER 

4 BULLS? I WIN 
NOT YET I DONT 
MESSACE AND ENDCAME 

PUT ANSWER ON STACK 


UPDATE STACK END 
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2270i 

2280« 
2290« 
2300 i 
2310s 
2320« 
2330 s 
2340i 
2350: 
2360: 
2370s 
2380: 
2390: 
2400s 
2410s 
2420: 
2430: 
2440s 
2450 s 
2460: 
2470 s 
2480: 
2490: 
2500s 
2510s 
2520: 
2530s 
2540: 
2550: 
2560: 
2570s 
2580 s 
2590: 
2600 s 
2610s 
2620s 
2630: 
2640: 
2650: 
2660s 
2670: 


03A0 
03A1 
03 A 2 
03A4 
03A7 
03A8 
03A9 
03AA 
03AB 
03AC 
03A0 
03AE 
03AF 
03B0 
03B1 
03B2 
03B3 
03B4 
03B5 
03B6 
0387 
03B8 
0389 
03BA 
03BB 
03BC 
03BD 
03BE 
03BF 
03C0 
03C1 
03C2 
03C3 
03C4 
03C5 
03C6 
03C7 
03C8 
03C9 
03CA 
03CB 
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THE traditional bugbear of the microcomputer has been 
an almost complete lack of system software, with the 
only available programming language Basic unsuited to 
a wide variety of potential tasks. Basic is a superficially 
attractive way of programming a computer, its friendly, 
forgiving interactive nature plus its apparent simplicity 
mean simple programs arc easily written and debugged. 
As a tool for more serious development work however 
Basic leaves a lot to be desired—much of computer 
science emphasises the need for a top down structured 
approach to problem solution. Basic on the other hand is 
unstructured and inconsistent (no real attempt is made 
at standardisation between implementations and the 
numerous'Ad Hoc' extensions make life difficult for any 
programmer). The programming language Pascal has 
been hailed by many as much closer to that ideal 'The 
Programming language'. Pascal is a modem, struc¬ 
tured, heavily typed language that embodies many of the 
present ideas of computer science. 

Until recently much of the discussion had been largely 
academic—the wide availability of Basic made it a Dc 
Facto standard whereas few Pascal implementations 
existed for small machines. The situation changed how¬ 
ever with the announcement by the Department of 
Information Science at The University of California San 
Diego, that they had Pascal implementations up and 
running on a number of microprocessor based machines 
used for teaching purposes. This Pascal implementation 
is now available to the end user in a number of different 
guises for a number of different machines. 

The Apple implementation is perhaps the most excit¬ 
ing development in that a complete Pascal system is 
available in a packaged, well documented form, at a 
relatively low cost. 

The Pascal Language System consists of a fair amount 
of physical hardware viz: 

1 x Apple Language Card 

2 x Replacement Proms for Disk Controller Card 

1 x I.C. Extractor (!) 


Apple 1 
Apple 2 
Apple 3 


7 x System Manuals 
Applesoft Basic 
Applesoft Tutorial 
Integer Basic 

Pascal User Manual and Report 

Microcomputer Problem Solving Using Pascal 

Apple Pascal Reference Manual 

Apple Language System Installation and Operating 

Manual 

Plus miscellaneous guarantees, errata sheets, bibliogra¬ 
phy. etc. 

THE LANGUAGE CARD 

The heart of the system is this plug-in card. On Board 
is an additional !6Kof RAM. the'Autostart' ROMand 
the usual chunk of TTL. Installation consists of plugging 
the card into slot £0. replacing a 4116 on the main Apple 
Board with a ribbon cable, and changing the two Proms 
on the Disc Controller Board. 


USING THE SYSTEM WITH BASIC 


The Language System works with any 48K Apple II. 
or Apple II Plus complete with one or more disc drives. 
The Basic and Pascal Systems are independent and 
incompatible with one another, existing files cannot be 
accessed by the Pascal system and it is necessary to 
re-boot the system when switching. Included with the 
• Basic' portion of the system arc the Apple Integer Basic 
and Applesoft Manuals, as well as a new 'volume' the 
Applesoft Tutorial. This is an excellent adaption of Jef 
Raskin's Integer Basic Manual. 

To use cither Basic the user inserts the 'Basics' Disc. 
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switches on and when prompted inserts any existing 3.2. 
Disc. ‘Autostart* entry into applications programs is no 
longer available using Basic—only Pascal. This apparent 
disadvantage is offset by a number of improvements in 
using Basic, firstly on switch on the system loaded the 
alternative Basic for your system (Apple II Owners get 
Applesoft, Apple II Plus Owners Integer Basic), into the 
RAM on the Language Card. Switching from Basic to 
Basic is accomplished instantaneously by typing " FF' or 
"INT' respectively and the appropriate RAM (write 
protected) or ROM is selected. Apple had the good 
sense to include the mini-assembler, sweet 16 and float¬ 
ing point routines along with the Integer Basic firmware 
loaded in from disc,for Apple II Plus users. 

The existing F80CROM of Apple II users is replaced 
by the on-card ‘Auto-Start' ROM in the Memory Map. 
This is a considerable improvement over its 
predecessor—it features dramatically improved On- 
Screen editing, and typing a (CTRL S) stops a listing or 
trace from flashing by (in fact the output routine simply 
halts on a (CR) and waits for a keystroke). The most 
debatable improvement’ is‘Reset Key Protection'. On 
reset the Apple initialises and executes an indirect jump 
to location 03F2 in RAM. 

Normally this is initialised as a warm start to Basic, so 
hitting reset is equivalent to < CTRL C> (however 
reset also clears variable values). In addition by chang¬ 
ing the address to a suitable location it is possible for 
applications packages to retain control instead of land¬ 
ing the poor user in the middle of the system monitor (no 
more ‘If you hit reset type 3D0(0not 0) G return, then 
type ‘Run’ or GOTO 100 or whatever). The disadvan¬ 
tage comes if a rampant program should overwrite 03F2, 
it then becomes possible to crash the system so that you 
hvae to switch off and start over. Personally I feel the 
advantages outweigh the disadvantages but nevertheless 
it is uniquely irritating when it happens. 

As a result of all this all existing Apple Software 
remains compatible (Apple II Plus owners can now run 
all that important Integer Basic Software like Startrek, 
Starwars without mods.). The only exception to this is if 
your program calls any part of the single-step simulator 
code or multiply/divide routines of the monitor which 
have been replaced by other subroutines in the F800 
ROM (No software I know of does). 

•AUTOSTART CHANGES: 

Deleted 

Step»FA40-FA8S, FAA5-FAD6. FAD FBI8 
Muplm. Divpm=FB60 FBC0 

BREAK (FA86) is now at FA40 
Page 3 Vector* 

Break Vector is at 3F0. 3FI 
Reset Vector is at 3F2. 3F3 
USING THE SYSTEM WITH PASCAL 
The Pascal System largely consists of the operating 
system, file handler, a 'window' text editor, the actual 


compiler, a linker and macro-assembler. A number of 
utilities and demonstration programs are included with 
the system. 

Almost all of the system software assumes a screen 
width of 80 characters. Apples' 40 character screen 
therefore normally only shows the' left page'. To see the 
other page the user switches with < CTRL A > . 

While superficially unattractive I found the system 
worked well in practice; if required a full 80 x 24 upper 
and lower ease terminal is supported via a communica¬ 
tions card. 

The operating system is largely menu driven with a 
prompt-line at the lop of the screen indicating possible 
options. On booting the system a welcome message, the 
date the disk was last used, and this prompt line appears. 
COMMAND:E(DIT).R(UN,F<II.H,C(OMP.L(INK,X 
(ECUTE,A(SSEM,D(EBUG,? 

Typing the appropriate single letter will invoke the 
appropriate command. For example to use the editor the 
user types 'E'. To compile (if necessary) and execute a 
program 'R*. 'X* executes a codefile etc. 

When a ? appears in a prompt line there are too many 
options to fit on the prompt line. Typing a '?' displays 
any remaining commands. 

SYSTEM. WRK is a special default file used during 
program development or text editing. The workfile can 
be edited, compiled, saved, updated, or executed 
without the need to continually specify a filename. Most 
of the commands e.g. the editor automatically look for 
and load the workfile if it is present on the boot disk. 

The operating system adds a suffix, depending on a 
files contents, of Text. Code or Daw. For a program in 
the workfile there will usually be two files 

SYSTEM WRK. TEXT Source Code 

SYSTEM WRK. CODE Object Code 
Filer 

This is the general file handling utility of the system, 
specific peripherals for the system arc addressed as'vol- 
umes'; either volume name e.g. CONSOLE:, APPLE 
0:, APPLE I:, or volume number e.g. #. 1 for CON¬ 
SOLE:.^ 4 for Disk (those correspond to the 'logical 
device numbers' of other operating systems). 

In general, filenames can be referenced absolutely 
(i.e. the filename) or a set of files referenced by 
filenames with 'wildcard' characters. For example 
TOTAL■ 

TEXT will reference 

TOTAL 1 

TOTAL 2 

TOTAL 3 

TOTAL * Etc. 

One particularly nice feature is the ? character. Oper¬ 
ation is identical to the » character in specifying wild¬ 
cards except that before the specified operation e.g. 
block deletion, the system requests verification, file by 
file, that the operation is to be carried out. 

FILER COMMANDS 

B(AD-BLOCKS:Tests all 280 sectors (each of 512 
bytes for a total of 140K per drive) for 
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V 




CfHANGE 

D(ATE 


damage. Reports those faulty. 
Renames a disk name or File name. 
Sets current date. This is associated 
with any Files saved during the current 
session and will be displayed on the 
directory listing. 

EfXTENDED DIRECTORY LIST: Displays disk 
name, contents of disk with file, 
name, size. date, starting block, 
datafile, for example: 

APPLE 0 

SYSTEM. PASCAL 36 4-MAY-79 6 DATA 

SYSTEM. MISCINFO I 4-MAY-79 42 DATA 

MICRODICITAL TEXT 71 30-SEP 79 43 TEXT 

< UNUSED > 172 

3/3 FILES. 172 UNUSED. 172 IN LARGEST 


G(ET loads specified file as system 

workfile. E(DIT.R(UN. or 
C(OMPILE will use this file. 

K(RUNCH Repacks disk so that most effi¬ 

cient use is made of space. 

L(IST DIRECTORY Displays simplified version of sys¬ 
tems directory 

M(AKE Creates a disk file with specified 

size. Used to create a 'dummy' 
file on the diskette. 

N( EW Clear the workfile. Deletes SYS- 

TEM. WRK from bool diskette. 

P(REFIX Changes default volume name to 

specified name. 

0(UIT Quits filer, returns to outermost 

command level. 

RfEMOVE Remove specified file(s) from 

diskette directory—system asks 
for verification. 

SfAVE Saves workfile under specified 


TRANSFER 

VfOLUMES 

W(HAT 

XfAMlNE 


This is the PIP-like program 
(familiar to CP M or DEC 10 
uses) that is used to transfer files 
from disk to disk, disk to printer, 
etc. 

Gives devices and diskettes cur¬ 
rently on-line by volume and 
number 

Name and state of workfile. 
Attempts to repair corrupts 
blocks on disk. Marks blocks that 
cannot be fixed. 


TEXT EDITOR 

This is a cursor-based window editor—similar to the 
Electric Pencil Tm of CP/M based systems. It makes 
program development or general word-processing very 
simple and effective with a very ‘clean’ and logical user 
interface (the requirement that a given command should 
behave as the ‘typical uscF expects is often overlooked 


by programmers. It is particularly important in highly 
used system programs—a text editor is often the users 
primary interface with a given computer system). 

Essentially the editor commands arc as follows: (the 
more complex each as F(IND. R(EPl.ACEor l(NSERT 
have further prompt lines as options). 

On invoking the editor the current workfile is read in. 
If no workfile exists the system prompts for a filename or 
creates a new file. 

COMMANDS - CURSOR MOVES * 

CTRL L Cursor Up 

CTRL 0 Cursor down 

RIGHT ARROW KEY Cursor right 

LEFT ARROW KEY Cursor left 

SPACE BAR More 1 space in set 

lion direction 

CTRL I Tab to next position 

RETURN Move to next line in set direction. 

= Move to start of latest text found, 

replaced, or inserted. 

• These can all be prefixed by a ‘repeat factor’ which is 
an integer specifying how many limes a particular opera¬ 
tion is to be carried out c.g. 10 CTRL-L moves the 
cursor 10 lines down. If the repeat factor is Y the move 
or command is repeated as many times as possible in the 


DIRECTION SET 

< ♦. Set direction to backwards 

> - • Set direction forwards 


A(DJUST Adjusts indentation of the line the 
cursor is on. Left or rigth arrow key 
moves the line left or right, a CTRLO 
or L will adjust the line above or 
below by the same amount 

C(OPY Copies a diskette file, or the copy buf¬ 

fer back into the file at the cursor 
position. 

DfELETE Deletes all text moved over by the 
cursor. Backspacing ‘undeletes’ 
F(IND Operates in LATERAL or T(OKEN 

mode. Looks in the set direction for 
the repeat factor occurence of a 
specified string. Typing an S repeats 
the search from the new cursor posi¬ 
tion. 

I(NSERT Inserts text into file at cursor position 

JIUMP Jumps to the files BEGINNING. 

E(ND or a M(ARKER (see set) 
M(ARGIN Starting at cursor position adjusts all 
text between two blank lines to the 
margins which have been S(ET. A 
command character (see S(ET) 
inhibits this. 







P(AGE 

0(urr 


R(EPLACE 


S(ET 


V(ER1FY 

X(CHANGE 

Z(AP 


Move up or down repeat factor pages. 
Leaves the editor. You may 
U(PDATE the workfilc on disk 
W(RITE to a specified file E(XIT 
without updating (text is lost) or 
R(ETURN to the editor 
Operation is similar to FOND except 
the user specifies <target string> 
< replacement stringy? Replaces 
target with substitute string repeat 
factor times. V(ERIFY option asks 
for permission to replace on each 
occurence. 

allows the user to set parameters: 

M( ARKER assigns a string name to a 

specified cursor position. Sets options 

in the ENVIRONMENT for 

A(UTO indent 

FULLING 

M(ARGINS 

T(OKEN 

C(OMAND characters 
Redisplays screen with cursor: 
centred. 

Replaces character under cursor with 
character typed Backspace deletes. 
Deletes all text between the current 
cursor position and the start of the 
latest text found, replaced or inserted. 


COMPILER 

This is a one pass recursive descent design which 
compiles to an intermediate P-Codc that is machinc- 
independant and reasonably portable. The code is actu¬ 
ally executed by a run-time interpreter which could be 
resident on a 6502. 8080. Z-80. 6800. LSI-11 etc. 

To invoke the compiler the user types cither R(UN or 
C(OMPILE at the outermost command level. R(UN 
will load the workfilc and saves the updated file SYS¬ 
TEM. WRK. CODE to Disk. If during compilation a 
syntax error is detected the system, by default, gives the 
user the option of continuing compilation by hitting the 
spacebar, exiting to the command level by pressing 
'ESC or entering the E(DITOR with the cursor point¬ 
ing to the offending symbol. 

When required c.g. in processing external declara¬ 
tions. or linkages to library routines, the linker is auto¬ 
matically invoked by the compiler. 

Compiler time options follow the conventions of 
Wirth in 'Pascal User Manual and Report'. 

(*$ option *). Multiple options may be specified by 
(*S Option, S Option *) etc. 


COMPILER OPTIONS 


C Following characters arc placed 

directly into codefile. 

Used for inserting copyright notices 
etc. 

G ♦ Allows GOTO statements 

G - (default) Forbids the dreaded GOTO 


I + (default) 
I - 

I filename 


L - (default) 
L filename 
P 

Q ♦ 

O - (default) 


Generates I/O Checking Code. 

No 1/0 Checking. 

Includes normal sourcefilc in compi¬ 
lation 

Sends compiler listing to SYS- 

TEM.LST.TEXT 

No compiled listing 

Sends compiled listing to filename 

Pages listing 

Supress Screen messages 
Sends procedure names and line 
numbers during a compile to CON¬ 
SOLE 


R + (default) Generates range checking code for 
subscripts, vcriables. 

No range for checking. 

S+ Puts compiler in swapping mode (por¬ 

tions of compiler brought on and off 
disk) Allows more space for user 
symbol table compiles more slowly. 

S ++ Extreme version of S 

S- (default) No swapping mode entire compiler in 
memory. 

U + (default) Compiles on user lex level 
U - Compiles on system lex level 

U filename Specifics name of file, if other then 
SYSTEM. LIBRARY, in finding 
external pre-defined routines— 
UNITS. 

The linker is normally invoked automatically when 
R(UN is typed. It can also be invoked directly to link 
files other than the workfile or to procedures and Units 
defined externally that do not reside in the library file 
SYSTEM. LIBRARY 
ASSEMBLER 


As a companion to the Pascal compiler there is also a 
6502 macro assembler, generating relocatable code that 
can be linked and executed with Pascal programs. 

The Assembler is invoked by typing A' from the 
outermost command level. By default, the system 
aaumes that the current workfile is the source to be 
assembled. 

The assembler is largely oriented to the needs of the 
Pascal system: directives are: 

•PROC < identifier > (.expression Proceedure] 

.FUNC < identifier > {.expression Function] 

END 

label definitions, space allocation directives. 


label .ASCII" 

label .BYTE 

label BLOCK 

label .WORD 

label EQV 

ORG 

ABSOLUTE 
INTERP 
Macro directives: 


< character string > 
<valuelist > 

< length .value > 
<valuel»t > 

< value > 


.MACRO identifier 

.ENDM 
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Conditional assembler directives 


label 


4 expression > 


Pascal communication directives 


CONST 

.PUBLIC 

PRIVATE 

list 

External references 
.DEF 
REF 


< idlist > 

< idlist ? 

< identifier: integer^ 


< identifier 1 im> 

< identifier list > 


Listing Control directive 

.LIST. .NOLIST 

.MACROLIST. .NOMACROLIST 
PATCHL1ST. NOPATCMLIST 
PAGE 

TITLE < title > 


File directive 

.INCLUDE file identifier .TEXT 

Extensions 

The Apple implementation includes a number of 
extensions to standard Pascal as defined in Pascal User 
Manual and Report. These include a predefined data 
type string' defined a packed array I .80 of char. A large 
number of systems intrinsics dealing with strings and file 
handling, plus such facilities as SEGMENT which allow 
large programs to overlay from the disk. One of the 
nicest features of the system arc the extensions made for 
the Apples' special features; the graphics, sound and 
analogue inputs (usually paddles or joysticks!). These 
are implemented as a set of predefined routines called 
(UNITS). To use within your program you simply 
declare; 

USES< UNITNAMED> (UNITNAME) E G. 
PROGRAM DEMO: 

USES TURTLEGRAPHICS. APPI.F.STUFF; 
INITURTLE: 


The graphics extensions arc based on the 'turtle 
graphics' system developed by Scmour Papycrt at MIT. 
Commands follow those of a Turtle - dragging a pencil 
along the screen (similar in fact to X. Y plotter opera¬ 
tion). Complete patterns and plots are produced with 
consumate ease. 

The Apple screen resolution is 280 x 192 points and 
12 colours arc defined (although due to the vaguritics of 
your average colour television set only about 4 or 5 will 
be discernible). 

Die' turtle' starts off in the centre of the screen, facing 
right, it can turn or walk in the direction it is facing. As it 
walks it leaves a trail. 

Procedures: 

INITTURTLE; Sets graphic mode, dears screen. Turtle 


placed in centre of screen. Pcncolour 
is set to none. Full screen used. 
GRAFMODE: Sets graphics mode. Used to switch bet¬ 
ween text and graphics 
TEXTMODE; Sets text screen 
VIEWPORT (LEFT. RIGHT. TOP. BOTTOM) Use 
only defined position of screen for 
graphics. 

PENCOLOUR (PENMODE); Sets colour of turtle 
drawings. 

FILLSCREEN (PENMODE) Fills graphics screen with 
colour specified 

MOVETO (X. Y) Draws a line with current colour from 
last point drawn to co-ordinates (X, 

Y) 

TURN TO (ANGLE) Moves turtle from present angle 
to specified angle. 

TURN (ANGLE) Turtle rotates from present angle 
through ANGLE in a counterclock¬ 
wise direction. 

MOVE (DISK) Moves turtle specified distance. 
Functions: 

TURTLEX: Value of current turtle X co-ordinates 
(Integer) 

TURTLEANG: Value of current turtle angle (Integer) 
SCREENBIT (X. Y): True if point X. X is not block 
(Boolean) 

DRAWBLOCK: Allows you to pul a specified array of 
dots in memory onto the screen to 
form a picture with a wide variety of 
options. 

c.g. a sample declaration is 
DRAWBLOCK (VAR SOURCE; ROWS1ZE; 

XSKIP, YSKIP. WIDTH, HEIGHT. 
XSCREEN, YSCRENN. MODE: 
INTEGER) 

Hi-Rexolution Characters 

One of the more inconvenient features of the Apple in 
its inability to mix text and graphics on the hi-rcsolution 
screen. A number of programs have been written to do 
this but almost all suffered from a poor user interface- 
disagreeing with the Disk Operating System over input, 
output etc. A number of'Turtlcgraphics' procedures arc 
designed to allow the user to put character sets up on the 
graphics screen. The character set is stored in an array 
called SYSTEM. CHARSE T and may be user-defined. 
The present set. stored on APPLE I: give Upper and 
Lower case, sigma, and a number of graphics symbols 
such as Chess pieces etc. 

WCHAR (CH) puts character CH at current location of 
turtle 

WSTRING (S) prints string S at current turtle location 
CHARTYPE (MODE) defines mode for character 


Using AppleslufT 

This is a set of UNITS designed to interface with the 
Apple I/O and speaker. 
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RANDOM function returns a pseudo random integer 
between 0 and 32767. 

RANDOMIZE causes the RANDOM number 
generator to initialise at an upredict- 
ablc point. 

PADDLE (SELECT) Returns on integer in the range 0 
to 255 which represents the position 
of the paddle. SELECT is an integer 
specifying which of 4 paddles (0-3) is 

BUTTON (SELECT) Reads paddle switch (one of 
three). True if pressed. Will also sense 
cassette inputs. 

TTLOUT (SELECT DATA) Set one of four TTL out- 
NOTE (PITCH. DURATION) Self-explanatory! 

In addition there arc the transccllcntal functions: 

ALL ANGLE and NUMBER arguments are real, 
ANGLE is in RADIANS 
SIN (ANGLE) 

COS (ANGLE) 

EXP (ANGLE) 

ATAN (NUMBER) 

LN (NUMBER) 

LOG (NUMBER) 

SORT (NUMBER) 

Pascal Slot Use 

Slot Device 

0 language Caul 

I Printer 

’ Modem 

J External Console 

4 Disk for example 

5 Disk lor cxamplc 

6 hint disks 

7 PAI. Curd 

Peripheral Cards 

MOST non-Apple peripheral cards will work with the 
Pascal System, for example the Trcndcom—100 printer 
and interface card works with no modifications or ill 
effects. In the case of peripherals such as Mountain 
Hardwares Apple Clock, the Spccchlab Voice recogni¬ 
tion card or any 'homebrewn' peripherals the easiest 
method would appear to be to write short assembly 
language routines which can then be addressed as 
UNITS. With the appropriate routines installed in 
SYSTEM-LIBRARY the user then simply has to say 
(for example): 

PROGRAM CLOCKANDVOICE. 

USES CLOCK. VOICE; 
rest of program 

No doubt these drivers will be available from the 
appropriate manufacturers before too long. 

One drive systems. 

Although the Pascal system will work with only one 
disk drive, a fair amount of copying and transfering of 
programs from disk to disk is necessary. For example: 


The demonstration programs supplied with the Pascal 
systems on APPLE 3: require a fair amount of work 
before they will actually compile and run (this docs not 
apply to multi-drive systems). I found that the easiest 
method was as follows: 

Initialise a disk with the FORMAT program of 
APPLE3—call it DEMO I: or something appropriate. 
Transfer on to this disk. 

From APPLE 0: 

SYSTEM . PASCAL 
SYSTEM . MISCINFO 
SYSTEM . COMPILER 
SYSTEM . FILER 
SYSTEM . LIBARY 

From APPLE I: 

SYSTEM . CHARSET 

From APPLE2: 

SYSTEM . LINKER 

From APPLE3: 

SPIRODEMO . TEXT 
HILBERT . TEXT 
GRAFDEMO TEXT 
GRAFCHARS . TEXT etc. 

You should (hopefully) now have a 'demonstration 
disk' which will compile and execute these programs. 
(When booting use APPLE3:. then insert DEMOl: in 
drive and press'reset'). By loading the appropriate prog¬ 
ram using G(ET and then quitting the filer and executing 
R(UN. the program should should correctly compile, 
with the library routines automatically inserted. A 
codefiler (SYSTEM.WRK.CODE) is written to disk 
and then executed. 

Overall the system appears to be very powerful and 
flexible. The Pascal implementation K a complete 
implementation, as per Wirth's original specification, 
with a significant number of extensions that make life 
easier for the personal user. The actual implementation 
is imbedded within a powerful operating system envi¬ 
ronment that is similar to that of much larger, and more 
expensive hardware. 

Accompanying documentation is very much of a 'pre¬ 
liminary'' nature (although it is far. far better than much 
of present microcomputer documentation). The 
reference manual is just that—no attempt is made at a 
tutorial and while ‘Microcomputer problem solving 
using Pascal' is excellent I suspect the beginner is going 
to be left with a lot of questions unanswered. 

Together with such products as the Winchester floppy 
disks now available for Apple, the Pascal system 
expands the number of potential applications for the 
machine. 

N.B. 

This review is based on 48 hours sleepless use of the 
system. It was written, typed, proofread and printed 
within the space of three days. Please forgive any errors 
of fact, or grammar that may have crept in. 


Pascal Use 

P-Code Interpreter. I/O 
PRINTER 

REMIN: REMOUI *t 7 »r**K 
CONSOLE:, tf I 


DISK NAME 
N/A 
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RANDOM RUMOURS: 


6809 PASCAL 

Motorola's Austin homc-of-thc-6809 plant is repor¬ 
tedly nearing completion of a 6809 compiler for Pascal. 
When questioned late August they gave the standard 
' It’ll he ready in ten days or so’ (read we’ve gotta get the 
bugs out yet). It will be interesting to see how it com¬ 
pares with the ubiquitous UCSD Pascal. 

APPLE UI 

According to a pseudo-reliable source it sill be a bit- 
slice machine with plug in microporgrammcd instruction 
sets on ROM. designed specifically for high level 
languages-Pascal. FORTRAN and API.. A probable 
introductory date is late 1980. 

6809 BASIC 

Following hot on the heels of their 6800 Basic. Tech¬ 
nical Systems Consultants have developed a superb (by 
all accounts) 6809 version. Extremely fast, occupies 
about 9.5K of memory w ith all the facilities, plus more, 
of a MICROSOFT Basic 

NEW BOOK ON PASCAL 
Ken Bowles, the man behind UCSD Pascal is writing a 
new book, to be published by BYTE, specifically for the 
hobbyist using Pascal on his personal computer system. 

ACORN 

A 4K BASIC on EPROM (ROM in 2 months) should 
be available by the time you read this. Very fast, with 32 
bit integer arithmetic, clever design means it works with 
the disk and a forthcoming floating point package. 

In prototype ACORN have a bus compatible 6809 
board with 2K monitor. IK RAM. Monitor supports 
VDU and ASCII keyboard, file handling on tape and 
includes disk bootstrap. 


TWO NEW TEXAS MACHINES 

Following the launch of the T.I. 99/4 this summer 
Texas have two new machines waiting in the u ings. One 
is the T.I. 99/3 ycs-you-gucsscd-il a stripped down T.I. 
99/4 with 8K RAM. the other the T.I. 99/7 aimed speci¬ 
fically at the small business market with common appli¬ 
cations software in ROM (would you believe SOOK!) 

HARDWIRED LISP MACHINE 

The Pascal microcnginc. announced last summer, 
which executes Pascal P-Code in hardware (the instruc¬ 
tion set is microcodcd) looks like having some competi¬ 
tion. An as yet unknown company is to introduce a 
personal computer that executes LISP at the machine 
level, i.c. quickly. It presumably developed from work 
done at the A.I. labs of MIT who have had a baby LISP 
speaking computer for some time now—which inciden¬ 
tally crunches numbers as quickly as the equivalent 
FORTRAN systems on the big dinosaurs. 

HIGH RESOLUTION GRAPHICS FOR THE SOR¬ 
CERER 

Exidy inc.. have developed a high resolution colour 
graphics board for the Sorcerer to plug into the S-100 
bus. Apparently it is due for production’anytime now’. I 
wonder if it will work with PAL as well as NTSC? 
NEWBEAR 77/68 

Ncwbcar have a 6809 CPU board and companion disk 
system up and running on their 77/78 uvs structure The 
PCB’S arc ’at the manufacturer’. CPU board has 6809. 
IK monitor. 1K RAM, RS-232 and cassettee interface. 
I/O protocols arc as SWTPC. 

The disk controller is a stand-alone system based on 
the 6800 MPU. handing two 8" hard sectored, single 
density drives. It should be intcrfaceable to a wide vari¬ 
ety of systems. 






IBM 


Once again that well known manufacturer of typew¬ 
riters and large computers is rumoured to be introducing 
a personal computer system. Amongst other - features’ it 
is said to have a ’three year technology lead" and 'will 
decimate the marketplace’. 

6X000 

Motorola have samples of their wonderful (and com¬ 
plex) 68000 16 bit micro working at their Austin. Texas 
plant—thereby confounding the critics who said it would 
never work ... mind you, it remains to be seen if they 
can actually produce the beast in large quantities at an 
economic price. 


NEWBURY LABS. 

Newbury laboratories, one of the few successful Brit¬ 
ish V.D.lf. manufacturers, are developing an ’upmar¬ 
ket’ small computer system based on the Z-80 with an 
in-built printer. 

NASCOM. 

Nascom Microcomputers are working on a new ‘pac¬ 
kaged’computer system ... (actually a Nascom-2 with 
colour board in a case). Due to be released early next 
year they are planning to hold a competition for its name 
(how about one of the mythical Greek Gods). 

For the Nascom-1 they have a ’Tiny Pascal’ running in 
4k Bytes of memory , a labelling disassembler whose 
output is compatible with ZEAP and a text editor—all 
‘in the works'. 


^XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXVSp 

I COMING SOON! ! 

I - — 



s 

a column on computing in America X 
straight from Stfccon Valley, authored by Dave / 
Smith, editor ot the American Apple Magazine- / 
Appleshcppe > 

— | 

ALSO, up and coming chess program lor the / 
Acorn. 77/68 Systems Software, An indepth look / 
at the Apple System Monitor, plus regular Pet y 
Apple, Rumours Pages y 
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The Pascal System 

and um oi application* programs in 
Paacal Banc or AaMrabty language 
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